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Zum zweiten Mal finden 
Sie in Schneider aktiv 
eine Verlagsbeilage. 

Die CA — Computer 
Aktuell — beschäftigt 
sich ausschließlich mit 
PCs und allem was in die- 
sen Bereich gehört, also 
MS-DOS, gewerbliche 
EDV und professionelle 
Datenfernübertragung. 
Seit neuestem gehört 
auch ein Schneider-Rech- 
ner in diese Zeitschrift; 
es ist der PC 1640. 

Dieser PC aus Türkheim 


hat Schneider aktiv vor ei- 


nige Probleme gestellt. 
Kann man wirklich jeden 
Leser zufriedenstellen, 
wenn man von der Spar- 
konfiguration des CPC 
bis zum EGA-PC jeden 
Rechner mit einer Rub- 
rik abhandeln will? 
Sicherlich nicht, denn 
dann bleiben letztlich für 
den Einzelnen nur ein 
paar Seiten übrig, die ihn 
interessieren. Dagegen 
spricht dann aber unser 
Verkaufspreis. Konse- 
quenterweise ignorieren 
wir deswegen schon seit 
einiger Zeit den Joyce. 
Der PC 1512 war dann 
wieder ein Computer, 


der Freaks und semiprofes- 


sionelle Anwender glei- 
chermaßen ansprach. Wir 


kommen dem Wunsch nach 


Information natürlich 
gerne nach. Sie werden 
auch weiterhin über 
GEM, BASIC2 und DOS- 
PLUS in Schneider aktiv 
lesen. 

Wenn Sie aber etwas über 
MS-DOS und die dazu- 
gehörige Software, über 
Laserdrucker, das neue- 
ste WordStar und ähnli- 
ches erfahren wollen, 
dann schauen Sie sich die 


CA an. Hier finden Sie 
alles Wissenwerte über den 
PC und das nicht nur in 
Bezug auf Schneider, das 
diesen Markt erst relativ 
spät für sich entdeckt 

hat. 

Damit ist, so denken wir, 
allen Recht getan. Immer- 
hin bedeutet CA in 
Schneider aktiv eine Er- 
weiterung um 16 Seiten, 
auch wenn die Beilage 

als eigenständige Zeit- 
schrift anzusehen ist, die 
übrigens schon seit über 
vier Jahren mit viel 
Erfahrung gemacht wird. 
CPC- und PC-1512-User 


müssen trotzdem nicht auf 


Seiten verzichten. Mit 
der herzlich willkomme- 
nen Beilage haben wir viel- 
leicht das geschafft, was 
wir zu Beginn dieser Seite 
als unmöglich dargestellt 
haben: es jedem Leser 
recht zu tun. 


WIR ÜBER UNS 


Der Checksummer spukt 


immer noch in unseren 
Gehirnen herum. Mittler- 
weile hat sich Lothar 
Miedel des Problemes 
angenommen und über- 
legt sich die besten 
Tricks, um ein mög- 
lichst einfaches, doch 
brauchbares Programm zu 
gestalten. Leider stoßen 
wir schon bei den Vor- 
überlegungen auf Schwie- 
rigkeiten. Soll nun jeder 
Fehler gemeldet werden 
oder darf ein bißchen 
was zum Nachdenken 
übrigbleiben? Müssen wir 
unterschiedliche Pro- 
grammversionen für 464 
und 6128 anbieten? 

Wir werden sehen und 
dürfen gespannt sein! 


Bisher zeigte sich „MC- 
Miedel” jeder Aufgabe 
gewachsen, auch wenn er 
auf Vorschußlorbeeren 
allergisch reagiert und 
diese Zeilen am liebsten 
verbieten will. 

Einen Trick besonderer 
Art hat sich einer unserer 
Leser einfallen lassen. 
Um 0,80 DM (!) zu 
sparen, riskierte er eine 
Anzeige der Bundespost. 
Dabei war der Gedanken- 
gang durchaus logisch: 
Man schreibe die Adresse 
von Schneider aktiv auf 
den Absender und die ei- 
gene Adresse als Empfän- 
ger. Nur noch den Brief 
einwerfen und bei Zustel- 
lung die Annahme ver- 
weigern. Schon geht der 
Brief zurück an den Ab- 
sender, das heißt an 
Schneider aktiv. Schade 
jedoch, daß der Verlag 
keine unfrankierten 
Briefe annimmt und zu- 
dem noch recht erstaunt 
ist, wieso überhaupt ein 
Brief ohne Porto (und 
nicht auf Firmenpapier) 
abgegangen sein soll. 

Was soll ein armer Brief- 
träger also mit einem 
Brief tun, dessen Annah- 
me sowohl Absender als 
auch Empfänger ver- 
weigern? 

Es ist die Pflicht des Post- 
beamten, diesen Brief zu 
öffnen und dabei 

kommt er natürlich dem 
wahren Sachverhalt auf 
die Spur. Ein normaler 
Leserbrief, der auf billige 
Art losgeschickt werden 
sollte. Jetzt riskiert der 
„clevere‘’ Leser eine 
Betrugsanzeige, denn die 
Post läuft nicht gerne um- 
sonst in der Gegend her- 
um. Zwar konnte der Ver- 
lag dieser Geschichte noch 
ein Lächeln abgewinnen, 
doch Behörden... 
“READERROR A’, 
“READ ERROR B”, so 
häufen sich die Klagen 


über unsere Kassetten-Soft- 


box. Auf der anderen Sei- 
te ist eine Diskettenstation 
schon lange eine Selbst- 


verständlichkeit bei unse- 
ren Lesern, der geringe 
Anteil der Kassetten an 
der Softbox zeigt dies 
deutlich. Bei unserem 
Kopierwerk muß jedoch 
eine Minimal-Auflage be- 
stellt werden, die in die- 
ser Größenordnung nicht 
mehr an den Mann zu 
bringen ist. Kommen 
dann noch Reklamatio- 
nen aufgrund eines ver- 
schobenen Lesekopfes 
hinzu — entweder im 
Kopierwerk, bei uns, 
oder beim Leser —, dann 
ist der Preis nicht mehr 
zu halten, denn wir prü- 
fen jede Reklamation 
und leisten bei berech- 
tigter Klage sofort Ersatz. 
Arbeitszeit und Ersatz- 
lieferung samt Porto 
kosten jedoch Geld. 

Wir haben uns deshalb 
schweren Herzens ent- 
schlossen, die Kassetten- 
produktion einzustellen. 
Wir sind sicher, daß eini- 
ge Besitzer einer Disket- 
tenstation nur deshalb 
eine Kassette gekauft 
haben, um auf diese Wei- 
se etwas Geld zu sparen. 
Wir haben dafür vollstes 
Verständnis, doch kön- 
nen auch wir nicht mit 
„roten Zahlen‘’ produzie- 
ren. Aber wir möchten 
auch jene nicht im Stich 
lassen, die wirklich auf 
den Kassettenrekorder 
angewiesen sind. Im Ein- 
zelfall geben wir in der 
Redaktion unser Bestes, 
um auch eine Kassette 
liefern zu können. Bitte 
haben Sie Verständnis, daß 
durch den erhöhten Ar- 
beitsaufwand auch der 
Preis steigen mußte. Es 
geht jedoch wirklich nicht 
um eine erhöhte Verdienst- 
spanne. Im Gegenteil, wir 
bitten Sie, auf die Disket- 
ten-Softbox umzusteigen. 
Für Sie bedeutet dies 
mehr Datensicherheit, 

für uns ist es eine Arbeits- 
erleichterung. 

Näheres entnehmen Sie 
bitte unserem Service- 
bogen in der Heftmitte. 
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„Firebird‘’ hat wieder zugeschlagen. Das englische Softwarehaus, 
dem wir schon das Superspiel ‚‚Elite‘’ verdanken, von manchem Freak als 
Kult betrachtet, hat einen neuen Hit gelandet. Nach den nicht ganz so 

heißen Sachen wie ‚‚Starstrike‘’, „Druid’’ und ‚„‚Cholo’’ gibt es 
„The Sentinel”. Wer keine Tests lesen mag: Geldbörse greifen, 
raus und kaufen, dann spielen. Einfach super! 


Das Wörterbuch übersetzt „Sentinel“ 
als „die Schildwache, der Posten“. 
Die Werbung der deutschen Ver- 
triebsfirma Ariolasoft spricht vom 
„Machtwächter“. Er wacht über 
Landschaften, in die Sie als Spieler 
eindringen. Damit ist die Aufgabe 
klar: Sie gegen den Sentinel. Er steht 
in der Berg- und Tallandschaft oben, 
auf dem höchsten Gipfel. Sie sind 
ganz unten im Tal und wollen nach 
ganz oben, dort wo der Sentinel 
steht. So ist das. 


Leben zieht, ist fehl am Platze, denn 
es handelt sich schließlich um ein 
Spiel. Und was für eines! 


DIE DISKETTE: 
DER PROGRAMMSCHUTZ 
IST PERFEKT 


Das Spiel ist auf Cassette oder Disk 
erhältlich. Die folgenden Ausführun- 
gen gelten nur für die Diskettenver- 
sion. Spieler mit Cassettenlaufwerk 
sollen diesen Absatz überspringen. 
Hartgesottene Computer-User geben 
erstmal ein <CAT> ein (vorher 


Schreibschutz kontrollieren), und... 


erfahren fast gar nichts. “Ok free“ 
meldet AMSDOS unter User O0. Mit 
anderer User-Nummer merkt man 
(kann dann aber nicht mehr star- 
ten): “43 kin O Files, 137 k free“. 
Der gesamte freie Speicherplatz ist 
also belegt. Der Kopierschutz des 
Programms ist ganz ausgezeichnet, 
mit keinem mir verfügbarem Moni- 
tor oder Trick ist irgendetwas von 
der Diskette lesbar. Mit dem Mirage 
Imager kann man wohl eine Kopie 
fahren, auch mit „Super-Copy“‘ ge- 
lingt ein Back-Up, aber in den Pro- 
grammcode kann man nicht hinein- 
sehen. 


ZEHNTAUSEND LEVEL 


Mit RUN“sentinel‘ wird das Spiel 
gestartet (ohne Extension). Danach 
baut sich eine erste Grafik auf, ganz 
vorzüglich gemacht: ein sehr wach- 
sames Auge des Wächters. Nun er- 


The Sentinel: Vektorgrafik der 
Spitzenklasse 


eigene Position tief im Tal. In Farbe 
ganz wunderschön, auf dem Grün- 
monitor nur Mittelklasse. Bei höhe- 
ren Levels wird die Landschaft 
zunehmend schwieriger, steiler und 
zerklüfteter, außerdem bekommt 
der Sentinel auch noch Hilfskräfte, 
die ebenfalls auf den Gipfeln herum 
stehen. Ohne eine erkennbare Regel 
werden es mehr und mehr, man hat 
schon von sechs Wächtern in einer 
Ebene gehört! 

Man beginnt mit drei Leben, ange- 
deutet durch kleine Männchen links 
oben. Ihnen entsprechen die drei 
Spielfiguren, die man anfangs zur 


Verfügung hat, oder die ‚‚Energie““, 
mit der man startet. Die Landschaft 
ist dargestellt in dreidimensionaler, 


scheint ein Titelbild des ganzen Wäch-superfeiner Vektorgrafik. Wie ein 


ters und nach Tastendruck wird in 
meinem Programm dann auf Fran- 
zösisch nach der Nummer der ge- 
wünschten Landschaft gefragt. Die- 
se Landschaftsnummer ist mit dem 
Level gleichzusetzen und ist vier- 
stellig. 

Ja, richtig, vierstellig bis 9999, d.h. 
es gibt also 10000 verschiedene 
Level! Damit dürfte man ‚„Sentinel“ 
jahrelang spielen können, ohne daß 
Langeweile aufkommt, höchstens 
irgendwann Überdruß oder Über- 
frust. In alle Level höher als Null 
kann man nur nach Abfrage einer 
achtstelligen Codenummer hinein- 
kommen, die nach erfolgreich be- 
standenem niedrigem Niveau als Be- 
lohnung ausgegeben wird. Also un- 
bedingt die erreichten Landschafts- 
und Codenummern notieren. Hat 
man die richtige Nummer eingetippt, 
sieht man die Landschaft mit dem 
Sentinel in Aufsicht, leider ohne die 
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großes Schachbrett, aber mit Berg- 
spitzen, Klüften und Ebenen. Die 
Sicht reicht immer bis zum Horizont, 
vom Gipfel sehr weit. Im tiefen Tal 
stehen die Felswände manchmal 
direkt vor der Nase. Über die Tasta- 
tur mit <S> dreht man nach links, 
mit <D> nach rechts, <L> bzw. 
<,> erlauben den Blick nach oben 
bzw. unten zu wenden. Mit <U> 
kann man sich ganz schnell um 

180 Grad drehen. Manches Mal wer- 
den Sie wünschen, daß die Antwort 
der Tastatur schneller käme, aber 

so ist das eben in diesem Spiel. 

Nun gilt es, aufzusteigen. Am ein- 
fachsten geht es mit <H>, aber diese 
Aktion sollte man nur für verzwei- 
felte Fälle aufheben, denn sowas 
kostet ein ganzes Leben. Außerdem 
wird man dadurch an einen vom 
Programm gewählten Platz versetzt. 
Mir scheint, daß die Bosheit der 
Programmierer dafür sorgte, daß die- 


se Plätze manchmal hoffnungslos 
sind. So findet man sich z.B. in ei- 
nem tiefen,engen Tal, schaut nach 
links, nach rechts, nach oben und 
unten und es gibt keinen Ausweg. 
Da hilft nur nochmal<H> oder 
gleich <1> für einen Neustart. 

Zum Glück geht es aber auch anders. 
Mit <SPACE> schaltet man ein Fa- 
denkreuz ein. Jetzt zielt man mit 
den oben genannten Tasten und lei- 
tet weitere Handlungen ein. Es muß 
immer eine horizontale Fläche sein, 
die angepeilt wird. Ganz wichtig da- 
bei ist, dafs sie unter dem momenta- 
nen Augenniveau liegt, daß man al- 
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so herunterschaut. So kann dort mit 
<R> eine Spielfigur plaziert werden. 


Mit <Q> nimmt man dann den so er- 


reichten neuen Standort ein. Die 
Blickrichtung danach zeigt immer, 
manchmal allerdings zu hoch, auf 
den vorher besetzten Standpunkt. 
Fadenkreuz auf diese Fläche, und 
mit <A> absorbiert man die „alte“ 
Spielfigur und hat so sein Leben 
wieder. 

Höher kommt man, indem zuerst 
mit <B> ein Block und dann darauf 
mit <R> eine Figur gesetzt wird 
das geht auch mehrtach. Hinterher 
aber immer wieder schön sauber 
absorbieren. 

Energie sparen, lautet die Devise. 
Leider vergibt man nämlich immer 
ein Leben für jeden gesetzten Gegen- 
stand. Also muß man noch zusätz- 
liche Leben gewinnen. Dies tut man 
durch möglichst häufige Aufnahme 
der herumstehenden Bäume. Ein 
absorbierter Baum wird neben den 
vorhandenen Leben angezeigt. 
Schlucken eines zweiten Baumes 


verwandelt ihn in einen neuen Block, 


TEST 


der dritte Baum erhöht den Block 
dann zu einer neuen Figur. So kann 
die Anzahl der Leben kräftig erhöht 
werden. Die Landschaften sehen, 
wenn man einen Level mal wieder 
geschafft hat, hinterher aus wie das 
Riesengebirge nach dem Sauren 
Regen: lauter kahle Berge ohne 
Bäume. Aber immerhin, man robbt 
sich höher und höher. 


DIE GEGENSPIELER 


Der Sentinel und seine Hilfskräfte 


schauen diesem Treiben zu. Wehe, 
wenn ihre Blicke auf Sie treffen. 


Spielbericht nächste Seite: Krieg der 
Spione 


Dann kommt die Strafe für die Ab- 
holzerei. Oben rechts im Bildschirm 


beginnt ein Warnfeld zu blinken und 


gleichzeitig ertönt ein nervendes 


Schnarren. Jetzt aber nichts wie weg. 


Rasch auf ein anderes Feld jumpen, 


möglichst weit aus der Blickrichtung 


des Wächters. Gelingt dies nicht 
schnell genug, dann werden Ihre an- 
gesammelten Leben eins nach dem 
anderen vom Sentinel aufgezehrt. 
Meist geschieht dies in erschrecken- 
dem Tempo, manchmal hilft nur 
noch der Notsprung <H>, aber 
auch nicht immer. Zu allem Übel 
taucht manchmal noch ein ‚‚Hilfs- 
sheriff‘ auf, ein furchterregendes 


Hakenmonster, ähnlich einem Geier. 


Immerhin kann man diesen Bur- 
schen auch mit Fadenkreuz und 
<A> wegschaffen, erhöht dadurch 
sogar die eigene Energie. Genauso 
soll man auch in jeder Landschaft 
mit dem Sentinel und/oder seinen 
anderen Hilfen verfahren, aber es 
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ist schon verdammt schwer. Denn 
dazu muß man erst mal so hoch 
steigen, daß man auf deren Stand- 
fläche herabschaut; leichter gesagt 
als getan! 

Fieser Weise gucken die Kerle auch 
nicht in eine festgelegte Richtung, 
sondern drehen sich schrittweise 
um die eigene Achse, jeder Ruck 
wird durch einen „Witsch“-Ton 
hörbar. Es gilt also die Burschen 
genau zu beobachten und möglichst 
nur dorthin zu springen, wo der 
Wächter gerade nicht hinschaut. 
Man kann sich auch schützen, in- 
dem man mit <T> einen Baum ge- 
nau so in die Blickrichtung stellt, 
dafs man dahinter Deckung vor dem 
„Bösen Blick“ hat. Bei Bewegun- 
gen ist es übrigens sehr nützlich, 
mit <SPACE> zwischendurch das 
Fadenkreuz auszuschalten, denn 
dann vollzieht sich der Grafikauf- 
bau viel schneller. Steht man erst- 
mal aüber dem Wächter, dann 
<SPACE>, zielen <A>, <R> und 
<Q>. Der Sentinel ist geschafft und 
man darf sich selbst auf dessen 
Sockel bewundern. Von ganz oben 
ist die Aussicht wirklich lohnend, 
genießen Sie einen ausführlichen 
Rundblick. Wenn man dann <H> 
drückt, erscheint nach kurzer Zeit 
die Codenummer für die neue, jetzt 
erreichte Landschaft. 

Zwei Tasten fehlen noch: <O> 
schafft einem eine Atempause (fürs 
Telefon oder den aber wirklich aller- 
letzten Kaffee), <9> beendet 

die Pause. 


FAZIT: UNGEAHNTE 
SPIELMÖGLICHKEITEN 


All diese Möglichkeiten machen 
„Ihe Sentinel‘“ zu einem ganz neuen, 
ganz ungewöhnlichen Spiel. Neben 
der oft notwendigen schnellen Reak- 
tion überwiegt eine Strategiekompo- 
nente, die dieses Game zum Denk- 
spiel werden läßt. Damit wird es 
wunderbar originell und geradezu 
einzigartig. ‚The Sentinel‘ ist ein 
Leckerbissen, ganz eine eigene Klas- 
se. Auch die Programmierung ist 
vom Allerfeinsten. So ein flimmer- 
freies, seidenweiches Scrolling hori- 
zontal und vertikal sieht man selten, 
besonders in einer so wirklich tol- 
len, dreidimensionalen Vektorgrafik. 
Wenn die Titelgrafik erstmal auf 
dem Schirm ist, wird kein Code 
mehr nachgeladen. d.h., die zehn- 
tausend Level sind nicht abgespei- 
chert, sondern jede dieser Land- 
schaften wird berechnet. Im Pro- 
grammcode ist also eine Rechenvor- 
schrift gespeichert, an die jetzt 
Parameter übergeben werden. Ver- 


mutlich werden diese Werte aus der 
Landschaftsnummer abgeleitet. 
Dies ist zwar nur zu vermuten, denn 
man kann nicht das kleinste biß- 
chen Code von der Diskette lesen. 
Die Landschaften sehen so aus, als 
wären sie nach einer Fraktalgeome- 
trie (ähnlich den allseits beliebten 
Apfelmännchen) berechnet. Was 
für eine elegante Programmierung! 
Auch die Geheimziffern zum 
Eintritt in die Landschaften müssen 
berechnet sein, denn 10000 acht- 
stellige Ziffern sind gar nicht in 

64 kB unterzubringen. Hier sind die 
Meisterschummler, die Cheater, 
gefordert: Wer findet den Algo- 
rithmus heraus, mit dem aus der 
Levelnummer der Eintrittscode be- 
rechnet wird? Es bietet sich also 
noch ein weiteres „Spiel“ im 

Spiel an! 

Nur zum besseren Sound hat offen- 
sichtlich der Speicherplatz nicht aus- 
gereicht: Neben den schon oben er- 
wähnten Geräuschen gibt es noch 
ein mickriges CHR$(7)-Staccato, 
wenn das Fadenkreuz nicht genau 
ausgerichtet ist und einige drei- 
stimmige Akkordfolgen beim Bild- 
wechsel. 
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Von Firebird 


ALS ZUGABE DIE ERSTEN 
CODENUMMERN 


Die versprochenen Code-Nummern 


TEST 


SPIONE 
UNTER SICH 


MAD, das satirische Magazin, machte die beiden in Deutschland bekannt. 
Es geht um Spion (weiß) und Spion (schwarz). The Island Caper ist 
bereits das zweite Abenteuer des verrückten Geheimdienstes, welches für 
den CPC erhältlich ist. Spielen Sie doch mal James Bond und finden 
Sie die Teile einer Geheimrakete in dem zweiten Teil der Spionen-Story 
Spy vs Spy. Diesmal jedoch nicht in einem Haus, sondern auf einer 
exotischen Insel. 


Ihre Aufgabe in diesem Spiel be- spielen, sollten Sie einen möglichst 
steht darin, die drei Teile der streng niedrigen wählen, damit Sie es et- 
geheimen Rakete XJ4 1/4 zu finden was einfacher haben. Diese Option 
und zusammenzusetzen, bevor Ihr entfällt natürlich, wenn das Spiel 
Gegner dies geschafft hat. zu zweit gespielt wird. 

_ Der Schwierigkeitsgrad ist ebenfalls 
LEBENSGEFÄHRLICHER einstellbar, und zwar zwischen eins 
„INSELURLAUB“ und sieben. Wählen Sie Schwierig- 
—— nn keitsgrad 1, dann haben Sie für Ihre 
Die drei Teile sind auf der verlasse- 
nen Insel „Spy Island“ versteckt, die 
sich mitten in den Tropen befindet. 
Sie haben nicht nur die drei Teile 
zu finden, sondern Sie müssen sie 
noch auf Ihr U-Boot schaffen, das 
am Ufer der Insel auf Sie wartet. 
Wenn Sie Ihre Aufgabe nicht wäh- 
rend der Spielzeit erfüllt haben, wird 
ein Vulkan ausbrechen und die glü- 
hende Lava wird Sie mitsamt der 
Insel verschlingen. 

Jedoch sind Sie nicht allein auf die- 
ser Insel. Ihr Gegner, der die gleiche 
Mission erfüllen soll, will natürlich 
vor Ihnen fertig sein und die Rakete 
dann auf sein U-Boot schaffen. Der 
Wettlauf gegen Ihren Widersacher 
und gegen die Zeit wird Ihnen im- 
mer neue Aufgaben stellen. 

Ihr Auftraggeber hat Sie jedoch be- 
stens ausgerüstet. Ihnen steht die 
modernste Technik für Spione zur 
Verfügung. Damit können Sie Ihrem 
Gegner einige Überraschungen be- 
reiten. Wenn Sie jedoch nicht auf- 
passen, kann es sein, daß Sie in Ih- 


ITICLEIEZEN EL NET LOS DEP 


für die ersten zwanzig Level: 


0001 92416816 
0003 39389666 
0005 66799483 
0007 88070956 
0009 78959942 
0011 34128668 
0013 82497760 
0015 78844565 
0017 18167694 
0019 74546878 


„Sentinel“ läuft auf allen CPCs, mit 


0002 77651325 
0004 68888059 
0006 45600956 
0008 97558411 
0010 97567465 
0012 12837047 
0014 89619176 
0016 69076196 
0018 34259849 
0020 78042177 


ren eigenen Fallen gefangen werden. 
Außerdem hat Ihr Konkurrent die 
gleiche Ausrüstung und will Sie 
ebenfalls überlisten. 


STELLEN SIE DEN 
INTELLIGENZQUOTIENTEN 
DES CPC EIN 


Nach dem Start des Programms ha- 


ben Sie die Möglichkeit, zwischen 
mehreren Optionen zu wählen. Sie 
können das Spiel allein spielen oder 


Mission sechs Minuten Zeit. Wenn 
Sie sich für den Schwierigkeitsgrad 
sieben entschieden haben,stehen 
Ihnen 27 Minuten zur Verfügung. 
Das hört sich ziemlich einfach an, 
doch die Schwierigkeit besteht 
dann darin, daß die Insel, auf der 
Sie die Raketenteile suchen, we- 
sentlich größer ist als beim Level 1. 
Und dann müssen Sie ganz schön 
suchen! 

Als letzte Wahlmöglichkeit können 
Sie das U-Boot, mit dem Sie zum 


der Vortex F1-X Floppy allerdings 
nur unter AMSDOS, nicht unter 
VDOS. Die Speicherkarte und an- 
dere anwesende ROMs stören nicht. 
(H. Adelsberger) 


zu zweit. Wenn Sie das Spiel allein 
spielen, ist der CPC Ihr Gegner. 
Der Intelligenzquotien des Compu- 
ters kann eingestellt werden. 

Wenn Sie das Spiel das erste Mal 
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Abschluß Ihrer Mission mitsamt 
der Rakete wegfahren wollen, auf- 
getaucht oder untergetaucht warten 
lassen. Wenn Sie es auftauchen 


lassen, dann ist im Wasser das Seh- 
rohr zu sehen. Sie müssen zu diesem 
Sehrohr durch das Wasser waten, 
können dann einsteigen und die 
Rakete in Sicherheit bringen. 

Die Optionen im Wahlmenü werden 
mit dem Joystick angewählt und ein- 
gestellt. Nach dem Einstellen wird 
das Spiel dann durch Drücken der 
„Feuer‘-Taste gestartet. 


WO SIND DIE RAKETENTEILE? 


Sie können Ihren James Bond auf 
der Suche nach den Raketenteilen 
dreidimensional lenken. Drücken Sie 
den Joystick nach vorn, so kommt 
das Männlein auf Sie zu, bewegt sich 
also nach vorn. Wird der Joystick 
nach hinten gedrückt, läuft Ihr Spion 
von Ihnen fort, bewegt sich also in 
den Hintergrund. 

Steuern Sie ihn jedoch nach rechts 
oder links bis an den Bildrand, so 
wird der Bildschirm ruckfrei ge- 


Beide Spielfiguren können sich in einem 
Screen bewegen 


scrollt. Also kein Screenwechsel, 
sondern übergangsloses Scrolling. 
Ab und zu werden Sie bei Ihrer Su- 
che einige weiße Dreiecke finden. 


den Feuerknopf drücken, können 
Sie mit dem Joystick die Sachen an- 
wählen und in die Hand nehmen, 
die Sie vorher bei Ihrer Wanderung 
aufgenommen haben. 

Der Spieler I hat die Wahl zwischen 
der Steuerung mit der Tastatur oder 


TEST 


dem Joystick. Bei Tastaturauswahl 
sind folgende Tasten belegt: 


. Spieler 1 Funktion Spieler 2 
Q Hoch P 


Abwärts L 
Links N 
X Rechts M 
(0) Feuer B 


ACHTEN SIE AUF DIE HAIE 


UND AUF TREIBSAND! 


Beim Untersuchen der Insel achten 


Sie genau, wohin Sie gehen. Einige 
Stellen dieser vulkanischen Insel- 
sind tückisch, denn sie sind voller 
Treibsand. Und wenn Sie dort ein- 
mal drin sind, hilft nur noch hefti- 
ges Rühren am Joystick, um wieder 
herauszukommen. 

Aber auch im Wasser müssen Sie auf 
die Umgebung achten. Denn da Sie 
sich in tropischen Gewässern befin- 
den, besteht ständig die Gefahr, daß 
Haie auftauchen und an Ihrem Spion 
zu knabbern beginnen. Um den 
grünen Schlammhaien zu entkom- 
men, lenken Sie Ihren Spion auf 
dem kürzesten Weg zum Strand zu- 
rück in Sicherheit. 


BILDSCHIRMAUFBAU: 


GETRENNTE WEGE ZUM ZIEL 


Der Bildschirm Ihres CPCs zeigt 
ständig zwei Bilder. Auf dem oberen 
Bild der Insel ist Ihr Spion zu be- 
obachten,wennn er auf der Insel 
herumirrt. Auf der unteren Hälfte 
wird der Inselausschnitt dargestellt, 
in dem sich gerade Ihr Gegner be- 
findet. Begegnen sich beide, wird 
der untere Bildschirm schwarz und 
beide Männlein laufen in dem obe- 
ren Bild. Trennen sich die Wege 
wieder, so wird der Spion des 
Spielers 2 (oder des CPC) wieder 
auf dem unteren Inselausschnitt 
dargestellt. 


GEMEINHEIT SIEGT 


Um Ihrem Gegner bei der Suche 
nach den Raketenteilen zu behin- 
dern, haben Sie mehrere Möglich- 
keiten. 

Als erstes können Sie, wenn Sie den 
Spaten gefunden und aufgenommen 
haben, Fallgruben bauen, in der 
Hoffnung, daß Ihr Gegner dann dort 


lichkeit, Ihren Gegner mit einer 
Pistole zu verletzen. Nur ist die 
Durchschlagskraft der Pistole nicht 
besonders hoch, denn nach einem 
Schuß ist der Gegner noch nicht 
erledigt. 

Ganz hinterlistig ist natürlich die 
Verwendung von Napalm (ziemlich 
geschmacklos vom Softwareher- 
steller). 


EINE KARTE KANN 
WEITERHELFEN 


Um Ihnen die Orientierung auf der 
Insel zu ermöglichen, können Sie 
sich eine Landkarte zeigen lassen. 
Sie sehen dann die Inselteile mar- 
kiert, in denen sich die noch fehlen- 
den Raketenteile befinden. 

Wir wollen Ihnen hier nicht alle Ein- 
zelheiten des Spiels erklären, denn 
einige Überraschungen sollten Sie 
noch vorfinden. Nur so viel: In den 
einzelnen Levels finden Sie verschie- 
dene Ausrüstungsgegenstände in ver- 
schiedenen Stückzahlen vor. Und 
damit ist dann nicht gesagt, daß der 
Level, wo Sie am meisten Zeit ha- 


Spy vs $py - The Island Caper 


Von datahyte hei ariolasoft 


ben (Level 7), auch der einfachste 
ist. Aber das sollten Sie wirklich 
allein herausfinden! 


FAZIT 


Spy vs Spy: The Island Caper ist 
eine Mischung aus Lauf- und Strate- 
giespiel mit einer nicht alltäglichen 
Spielidee. Nicht auf das ständige 
Feuern mit Laserkanonen kommt 

es an, sondern auf Orientierungsver- 
mögen und taktisches Verhalten. 
Die Spielidee ist, bis auf den Ein- 
satz der Napalmwaffen, die wohl ab- 


hineinfällt. Aber merken Sie sich die- solut geschmacklos ist, recht gut. 
Wenn Sie sich dann darauf stellen und se Stellen genau, denn sonst fallen 


Sie noch selbst dort hinein. 

Oder Sie nehmen sich eine Kokus- 
nuß-Bombe und zünden sie, wenn 
sich Ihr James Bond in der Nähe 
des Gegners befindet. Dann bleibt 
vom Gegner nicht mehr viel übrig. 
Außerdem haben Sie noch die Mög- 
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Die grafische Darstellung und die 
Farbgebung sind sehr gut. Ebenso 
der Background-Sound. Allerdings 
ist das Spiel nicht allzu schwierig. 
Nach einiger Übung sollte Ihnen 
schon bald die erfolgreiche Absol- 
vierung Ihrer Mission gelingen. 
(JE) 


TEST 


ENDURO 


GUTEN 


STUBE 


Simulationen von Auto- und Motorradrennen üben immer wieder 
eine eigene Faszination auf den Spieler aus. Ein neues Spiel dieses Genre 
findet bestimmt ebenfalls seine Freunde. Bei diesem Spiel würde Toni 
Mang, der mehrfache Weltmeister im Motorradfahren aus Inning am 
Ammersee in Oberbayern, bestimmt neidisch werden, wenn er es 
kennen würde. Gilt es doch, mit einem Motorrad so schnell wie möglich 
über Stück und Stein zu fahren und dabei den gefährlichsten 
Hindernissen auszuweichen. 


Nach dem Start von „Enduro Racer“ 
findet man sich in der Mitte von 

5 Fahrern wieder. Von drei wird 
dann rückwärts gezählt und bei 

Null geht’s los. Durch Drücken des 
Joysticks nach vorn gewinnt man 
schnell an Geschwindigkeit. 

Zuerst geht es geradeaus. Wenn 

dann die ersten Kurven kommen, 
legt sich das grafisch recht gut dar- 
gestellte Motorrad mit Fahrer in die 
Seitenlage. Dazu braucht man den 
Joystick nur in die entsprechende 
Richtung zu drücken. 

Doch Vorsicht! Manche Kurven 

sind so eng, daß man nicht in 
Höchstgeschwindigkeit durch- 
preschen kann. Da muß man seine 
Maschine schon etwas abbremsen 
und geschickt durch die Kurven len- 
ken. Der Fahrer, der auf der durch 
den Spieler gelenkten Maschine sitzt, 
streckt dabei sein Bein in die entspre- 
chende Richtung. Die Geschwindig- 
keit kann man durch Drücken des 
Feuerknopfes reduzieren und so 

den Erfordernissen anpassen. 


JEDE MENGE HINDERNISSE 


Auf der Fahrt über die Geländepiste 
tauchen manchmal Hindernisse auf, 
die stark an die Hürden bei dem eng- 
lischen ‚Grand National“-Pferde- 
rennen erinnern: 

Und bei diesem Motorradrennen 
müssen Sie mit Ihrer Maschine über 
die Hindernisse springen. Dazu zie- 
hen Sie kurz vor dem Hindernis den 
Joystick zu sich heran. Dann erhebt 
sich das Motorrad in die Luft und 
segelt sicher über die Barriere. Je 
länger Sie den Joystick herunterge- 
zogen halten, desto weiter segelt die 
Maschine durch die Luft. Das Männ- 
lein auf Ihrem Motorrad streckt da- 
bei völlig unmotiviert beide Beine 
senkrecht in die Luft. Was hat sich 
der Programmierer dabei bloß ge- 
dacht? Oder fährt er so vielleicht 
mit seinem Motorrad durch die 
Straßen? 


Noch schwieriger wird es, wenn 
nach diesem grofsen Hindernis, das 
Sie gerade sozusagen ‚‚übersegeln‘“, 
auf der Strecke dann plötzlich viele, 
viele kleine Hindernisse Ihren Weg 
versperren. Dann wird es nach der 
Landung schwierig. Da müssen Sie 
schon ein Kurvenakrobat sein, um 
da unbeschädigt vorbeizukommen. 
Und da hätte dann Toni Mang seine 
Freude an dieser Strecke. 

Vorsicht auch vor den Lastwagen, 
die ab und zu einmal auftauchen. 
Vermeiden Sie einen Zusammenstoß, 
denn die sind größer als Ihr Motor- 
rad! 


KONKURRENTEN LÖSEN 
SICH IN LUFT AUF 


Ihre Mitkonkurrenten, die sich eben- 
falls auf der Strecke befinden, kön- 
nen Sie seitlich überholen. Aber das 
ist gar nicht notwendig. Wenn Sie 
einen anderen Fahrer vor sich auf 
der Strecke sehen, dann fahren Sie 
einfach immer dichter an ihn heran, 
so, als wollten Sie ihn rammen. 
Wenn Sie dann meinen, jetzt kracht 
es gleich, löst sich Ihr Gegner in 
Luft auf und verschwindet ganz 
plötzlich! Das passiert nur auf dem 
CPC so, nicht aber im richtigen 
Straßenverkehr. 


INSGESAMT 5 LEVEL 


Dieses Programm hat insgesamt 
5 Level, die jeweils in einer anderen 
Landschaft spielen. Neben einer 
normalen mitteleuropäischen Land- 
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schaft fährt man auch durch die 
Wüste und muß einen Fluß durch- 
queren. Lassen Sie sich überraschen, 
was Sie sonst noch erwartet. Denn 
zuviel wollen wir nicht verraten. In 
der Wüste wird an den Hinterrädern 
der aufgewirbelte Staub dargestellt. 
In manchen Programmteilen merkt 
man die Liebe des Programmierers 
am Detail, manch andere Darstel- 
lungen sind aber auch fehlerhaft. 
Für jedes Level hat man zwei Minu- 
ten Zeit. Lassen Sie sich bei der Zeit 
nicht verblüffen. Es wird zwar von 
60 rückwärts gezählt, aber von einer 
Zahl zur anderen sind es eben etwa 
zwei Sekunden. 

Schafft man die jeweilige Strecke in 
der vorgesehenen Zeit, so kommt 
man in das nächste Level. Wenn Sie 
es nicht schaffen, beginnt das Spiel 
von vorne. 


BEIM CRASH GIBT’S 
STRAFSEKUNDEN 


Wenn Sie von der Strecke abkom- 
men, weil Sie zum Beispiel zu 
schnell in die Kure gegangen sind 
oder prallen Sie gegen ein Hinder- 
nis, so verlieren Sie kein Leben. 

Sie müssen dann einige Sekunden 
warten, bis Sie das Rennen wieder 
aufnehmen und weiterfahren kön- 
nen. Sie erhalten also quasi Straf- 
sekunden. Und diese Zeit wird Ih- 
nen nachher fehlen, wenn Sie in das 
nächste Level kommen wollen. Also, 
versuchen Sie, möglichst ohne Kol- 
lision über die Runden zu kom- 
men! 

Beim Abschluß eines Levels sowie 
beim Schluß des gesamten Spiels er- 
scheint die Punktetabelle. Sie kön- 
nen dieses Spiel allein oder zu 
zweit spielen. So richtig Spaf3 bringt 
dieses Spiel, wenn Sie es mit einem 
Freund zusammen spielen. 


FAZIT 


Die Simulation eines Gelände-Mo- 
torradrennens, das schon einige An- 
forderungen an die Geschicklichkeit 
im Umgang mit dem Joystick erfor- 
dert. Die Grafik ist streckenweise 
recht gut gelungen, der Sound be- 
schränkt sich auf die reinen Fahrge- 
räusche. Nur wenn Sie einen Crash 
„bauen“, kommen noch die entspre- 
chenden Töne hinzu. Mit den Far- 
ben wurde in diesem Spiel sehr ge- 
geizt. Die Spielmotivation ist recht 
hoch, denn die Szenen wechseln 
doch recht schnell und meist über- 
raschend. Und wenn Sie zu zweit 
spielen, kommt doch recht schnell 
das Konkurrenzdenken auf. 


Gesamturteil: Für Liebhaber dieses 
Genre empfehlenswert. (JE) 


TEST 


STAIRWAY TO HELL 


Um es einmal ganz hart auszusprechen: Es tummelt sich eine 
Menge Mist auf dem Softwaremarkt. Wenn dann noch ein Preis von fast 
50 — DM hinzukommt, dann wird es Zeit, daß diese schlechteren 
Programme auch einmal besprochen werden. Ganz einfach deswegen, 
damit keiner sagen kann, er hätte es nicht vorher gewußt. Wir haben den 
Titel „Flop des Monats’ zwar noch nicht eingeführt, aber das Programm 
Stairway to Hell von der Firma Software Invasion läßt sich jetzt schon da- 
für vormerken. 


Hinter dem fantastischen Namen 
„Ireppenstufen zur Hölle“ verbirgt 
sich nichts anderes als ein Kletter- 
spielchen. Vor vier Jahren, zur 
Blütezeit der Atari-Spielkonsolen, 
waren derlei Programme wohl noch 
zeitgemäß. Mittlerweile sollten sich 
diese Spiele im Wühltisch der Kauf- 
hausabteilungen befinden. 

Worum geht es? Ziel des Spieles ist 
es, den Teufel in seiner Behausung 
zu treffen. Jedoch befindet sich 
sein Appartment, die Hölle eben, 
tief unter der Erde. Sie sind also 
gezwungen, durch vierzehn mehr 
oder weniger langweilige Levels 
durchzuklettern. Zur Kurzweil 
dürfen Sie jedesmal kleine braune 
Klumpen aufsammeln. Nein, eben 
nicht — es handelt sich dabei viel- 
mehr um Schätze, wie die spärliche 
Hintergrundgeschichte behauptet. 
Diese Sammlung vergrößert in 
gleichem Maß Ihr Punktekonto, 
damit Sie Ihre Leistungen mit de- 
nen anderer Spieler vergleichen kön- 
nen, die beim Kauf des Programms 
ebenso hereingefallen sind wie Sie. 


LETZTER AUSWEG: 
SELBSTMORD 


Um Ihnen auch wirklich die letzte 


Spannung zu nehmen, haben die 
Programmierer eine Reihe von Son- 
derfunktionen eingebaut. Sie kön- 
nen sich zum Beispiel mit der Cur- 
sor-Rechts-Taste alle 14 Levels an- 
schauen und damit es nur ja recht 
einfach wird, dürfen Sie auch gleich 
darin spielen. Mit “Q‘“ (wohl für 
“Quietschen‘) können Sie die 
nervtötenden Geräusche, welche zu 
einem Musikstück aneinanderge- 
reiht wurden, abstellen. So bese- 
hen, ist das Programm äußerst be- 
nutzerfreundlich. Höhepunkt der 
Tastaturbelegung ist jedoch die 
“K“-Taste. Damit begeht die Spiel- 
figur einen klassischen Selbstmord, 
um ausweglosen Situationen, etwa 
der drohenden Langeweile, zu ent- 
fliehen. 

Die einfache und trotzdem zu grobe 
Grafik stammt aus den Entwickler- 
jahren des CPC. Viele Käufer des 


Programmes dürften selbst schon 
etwas Besseres eingeben können, 
ganz zu schweigen vom eintönigen 
Sound. Motivieren wird ‚„Stairway 
to Hell“ bestenfalls zum Weiterver- 
kauf der Diskette, doch damit 
macht man sich jedoch keine Freun- 
de. Letztlich hat der Preis von 

50,— DM keinen Bezug zur Wirk- 
lichkeit, zumal das Beste am ganzen 
Spiel — der Ausschalter — bereits 
hardwaremäßig von Schneider gelie- 
fert wurde; absolut nicht empfeh- 
lenswert. (GS/C. Borgmeier) 


Wir können leider aus Platzgründen 
nicht in jeder Schneider aktiv alle 
Programme mit einem ausführlichen 
Testbericht berücksichtigen, die 
hier Monat für Monat bei uns ein- 
trudeln. Deshalb haben wir zusätz- 
lich zu unseren gewohnt ausführli- 
chen Testberichten die Seite mit 
den Kurzreviews eingeführt. Hier 
finden Sie Berichte über Programme, 
die uns kurz vor Redaktionsschluß 
erreichten und für die keine Zeit 
mehr blieb. Interessante Produkte 
werden dann noch einmal genaue- 
stens beschrieben. Aber es findet 
sich auch mal ältere Software, über 
die eine Notiz lohnt, die aber aus 
Platzgründen nie in Schneider aktiv 
Erwähnung fand. 


"TOP GUN 


Top Gun ist, dies sei vorausgeschickt, 
nicht ganz so top. Bei Oceans neuem 
Spiel handelt es sich um eine Film- 
umsetzung zum gleichnamigen Film 
von Paramount Pictures. Die Hand- 
lung wird von einem Navy-Kampf- 
piloten geprägt, der seinen Job 

über alles liebt. Ocean hatte diesen 
werbewirksamen Namen für eines 
ihrer neuesten Games benutzt. 
Nachdem Sie festgelegt haben, ob 
Sie gegen den Computer oder gegen 
einen Gegner aus Fleisch und Blut 
spielen, sehen Sie Ihren Kampfjet 
vom Flugzeugträger aufsteigen. Beim 
Spiel gegen den Computer müssen 


Sie drei feindliche Jets vor das Faden- 


Warze ı i 
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kreuz bekommen und abschießen. 
Auf diese Weise gelangen Sie in 

das nächste Level. Im Zwei-Spieler- 
Modus müssen sich die beiden gegen- 
seitig abschießen. Sieger ist derjenige, 
der als letzter in der Luft ist. 

Der Bildschirm ist unterteilt in zwei 
„Cockpits“ mit Anzeigetafeln, so 
wird ein „gemeinsames“ Spielen er- 
möglicht. Neben der dümmlichen 
Programmidee ist auch die Vektor- 
grafik eine Zumutung, so daß der 
Titel „Flop Gun“ angemessener 
wäre. 


GAUNTLET — 
THE DEEPER DUNGEONS 


Gauntlet, der Superhit von US Gold, 
veranlaßte den Hersteller, ein Nach- 
ladewerk herauszubringen, welches 
512 (!) neue Levels enthält. Sie er- 
innern sich doch noch an den eigent- 
lichen Test aus Schneider aktiv- 
Ausgabe 4/87? Ein Spiel, bei dem 
man, alleine oder mit einem Mitspie- 
ler, den Ausgang aus einer Zauber- 
welt finden muß. Die Gauntletfans 
werden mit neuen 512 Labyrinthen 
voll auf ihre Kosten kommen. Die 
Diskette ist alleine nicht lauffähig, 
sondern nur mit der Original-Master- 
disc (bzw. Kassette) spielbar. Nach 
dem Laden des Originals und dem 
Erscheinen der Highscore-Liste, legt 
man das Ergänzungswerk ein und 
der Spaß kann beginnen. 


BARBARIAN 


Steve Brown, seines Zeichens Pro- 
grammierer bei der Firma Palace 
Software und mitverantwortlich für 
den Hexenküchen-Spaß, lieferte 

ein Prügelspiel ab, allerdings eines 
der Spitzenklasse. 

Sie müssen bei Barbarian mit Ihrem 
Schwert und Ihren Karatekünsten 
die Wächter des Bösen besiegen, 

um die Prinzessin Marina vom bösen 
Zauberer Drax zu befreien. Auge 

in Auge mit Ihrem Gegner liefern 
Sie sich packende Duelle und Kämp- 
fe. Ein Superspiel mit einer ausge- 
zeichneten Grafik, das einen ausführ- 
licheren Test in einer der nächsten 
Ausgaben wert ist. 


ACADEMY 


Der Nachfolger von Tau Ceti ist 
endlich da. Das Spiel, das sich mit 
einer umfangreichen Anleitung über 
zwei Kassetten erstreckt, ist genau 
wie sein Vorläufer eine programm- 
technische Meisterleistung. Auch 
hierzu erfolgt ein Spielbericht in 
einer unserer nächsten Ausgaben. 
(€. Borgmeier) 


VOKABELTRAINER 
AUS HEFT 6/86 


Der Vokabeltrainer in 
Heft 6/86 ist einmalig in 
seiner Schlampigkeit: 
Eine Unzahl von Auslas- 
sungen und Druckfeh- 
lern machen das Ding 
unbrauchbar. Selbst die 
nur kurzen Hinweise des 
Verfassers sind unver- 
ständlich. Bei den ange- 
führten Zeilennummern 
sucht man vergebens 
nach dem angebenen 
Inhalt. Könnten Sie mir 
verraten, wo in Zeile 220 
und 530 eine 8 steht? 
Ich habe den Eindruck, 
die Hinweise gehören 
nicht zum Programm. 
Jedenfalls kann ich mit 
diesem Mismatch absolut 
nichts anfangen. 

Bitte empfehlen Sie es 
nicht, sondern beeilen 
Sie sich, entweder dieses 
Programm korrekt zu 
drucken oder, wie in 
Heft 7/87 versprochen, ei- 
nen Vokabeltrainer zu 
bringen, der auch funk- 
tioniert. 

Dipl. Met. A. Morgen, 
Trier-Filsch 


Stimmt bedauerlicherwei- 
se. Unsere einzige Ent- 
schuldigung ist es, daß 
wir zu diesem Zeitpunkt 
noch gar nicht für 
Schneider aktiv verant- 
wortlich waren. Von den 
Programmen aus der Zeit 
vor 10/86 besitzen wir 
leider nur ein Listing, 
keinen Datenträger. So 
passierte das Mißgeschick 
der schlechten Empfeh- 
lung. Andererseits wie- 
sen wir aber auch auf einen 
neuen Vokabeltrainer hin 
und dieser erschien im 
vergangenen Heft 8/87 


PROGRAMM DES 
MONATS UND 
TIP DES MONATS 


Heute möchte ich mich 
einmal mit einer Frage an 
Sie wenden. Und zwar 
lese ich immer Ihre Zeit- 
schrift, unter anderem 
auch Schneider Interna- 
tional und das CPC-Maga- 
zin. Nun ist mir aufgefal- 
len, daß in den beiden 
zuletzt genannten Zeit- 
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schriften immer klar er- 
sichtlich ist, welches das 
Top-Programm des Mo- 
nats ist und was der Tip 
des Monats ist. Und jetzt 
meine Frage: 

Ist jeden Monat in Schnei- 
der aktiv ein Top-Pro- 
gramm oder nur ab und 
zu? Vielleicht sollte da 
etwas deutlicher darauf 
hingewiesen werden. Gibt 
es bei Ihnen für den Tip 
des Monats auch 500, — 
DM wie in anderen Zeit- 
schriften? Ich würde mich 
freuen, wenn Sie mir 
kurz antworten würden. 
Andrea Ratta, 

Dortmund 


Ein Tip des Monats gab es 
nicht und wird es vorerst 
auch nicht geben. Wir 
glauben, daß die Bewer- 
tung eines kleinen Hin- 
weises recht schwer fal- 
len würde und hoffen, daß 
sich trotzdem viele Leser 
finden, die anderen Usern 
aus Kollegialität weiter- 
helfen. Unbenommen da- 


von zahlen wir natürlich 
für interessante Artikel 
ein ganz normales Seiten- 
honorar. 

Sehr gute Programme wer- 
den wir in Zukunft aber 
etwas häufiger als bisher 
mit 1000,— DM als Top- 
Programm honorieren. 
Ob dies regelmäßig ge- 
schehen kann, hängt ja 


letztlich vom Angebot ab. 


VERBESSERUNG DER 
UNIVERSALDATEI 


(SONDERHEFT 2/1987) 


Ich meine, daß bei der 
Universaldatei aus dem 
Sonderheft 2/87 zwei 
wichtige Funktionen feh- 
len, die mit dem unten 
abgedruckten Listing ein- 
gefügt werden können. 
Vielleicht ist dem einen 
oder anderen Benutzer 
dieser Tip nützlich. 
Bevor das Programm star- 
tet, wird man aufgefor- 
dert, eine Datendiskette 
einzulegen. Dann kann 
man über die Funktion 9 
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ein Directory von der 
Datendiskette aufrufen, 
welches nur die für dieses 
Programm gültigen Da- 
teien auflistet. 

Wolfgang Paul, 

Bremen 


SONDERZEICHEN IN 
LISTINGS 


In Heft 6/87 nehmen Sie 
Stellung zu dem Listing 
CPC-Universaldatei (Son- 
derheft 2/87). Auch ich 
hatte eine Anfrage, die 
Sie mir am 28.4. beant- 
worteten. Ich wußte mit 
dem “ö“, das ich als 
Stierkopf bezeichnete 
nichts anzufangen. In 
Ihrer Antwort heißt es, 
daß dies das Zeichen “ “ 
bedeute. Gemäß Heft 
6/87 ist dies das „‚Ö“ 
(groß geschrieben). Im 
Listing kann ich aber kein 
“5“ entdecken. Bitte 
teilen Sie mir mit, in 
welchen Zeilen ‘Ö“ und 
“65“ zu finden ist, auch 
„a“ und “ü‘ kann ich 
nicht entdecken. Sie 
schreiben, daß Ihr Druk- 
ker auf deutsche Zeichen 
eingestellt war. Was ma- 
che ich mit einem Druk- 
ker, der kein Deutsch 
versteht? Wie müssen 
dann die Zeichen in ° 
den entsprechenden Zei- 
len aussehen? 

Im Handel habe ich das 
neue Sonderheft 3/87 
schon gesehen. Meinen 
Sie, die Post würde erst 
die Listings ausprobie- 
ren (ich bin Abonnent)? 
Zum Schluß noch ein 
Lob: Ich hatte mich über 
den schlechten Druck be- 
schwert. Es ist schon 
besser geworden. Nun 
aber nicht übermütig 
werden! 

Dipl.-Ing. F. Schmitz, 
Heıdesheim 


Unsere Antwort zu den 
Sonderzeichen wurde 
etwas pauschal gehal- 
ten, damit sie für jedes 
Listing zutrifft. In der 
Universaldatei kommen 
tatsächlich kein „dä“ 
oder “ü“ vor, es mag je- 
doch in anderen Listings 
der Fall sein. Noch 
einmal, sämtliche deut- 
sche Umlaute und ihre 


Bedeutung in einem 
Listing. Statt des Umlau- 
tes, der von uns gedruckt 
wurde, muß im Listing 

& und damit auf dem 
Bildschirm) folgendes 
Zeichen zu ER sein: 


„Ö “(Groß = “\“ 
(Ganzzahlendivisor) 

2 = u “ 
aragrap = “je 

“A “(Groß) = “ Le 

“U (Groß) = “ } “ 

Wi “ (klein) = “r“ 

j “ (klein) = “ l “ 


Auch hier handelt es sich 
um eine generelle Zusam- 
menfassung. Im Listing 
Universaldatei kommt 
nur das große ‘“Ö‘“ (z.B. 
Zeile 1590), das Paragra- 
phen-Zeichen (z.B. Zeile 
1890) und das kleine “ö“ 
(nur Zeile 3500) vor. 
Unsere Sonderhefte sind 
im normalen Abo nicht 
enthalten, egal, ob der 
Postbote nun erst einmal 
die Listings testet oder 
nicht. Nach Ihrer Vorbe- 
stellung haben Sie das 
Heft sicher schon längst 
erhalten. Andere Leser, 
welche die Extra-Ausga- 
ben nicht mehr am Kiosk 
erhalten, finden in jeder 
regulären Ausgabe einen 
Bestellschein. 

Wir freuen uns, daß die 
bessere Druckqualität 
Anerkennung gefunden 
hat. Eventuell rutscht 
uns noch einmal ein älte- 
res Listing durch, doch 
wollen wir bei dieser 
Druckqualität bleiben. 


NOCHMAL 
DRUCKQUALITÄT 


Zunächst ein kleiner Hin- 
weis: Mein Leserbrief, der 
in Ausgabe 6 von Schnei- 
der aktiv abgedruckt war, 
ist leider an einer sehr 
ungünstigen Stelle ge- 
kürzt worden, so daß es 
Mißverständnisse geben 
könnte. Die Befehle FI, 
CASE usw. haben unter 
DOS selbstverständlich 
kein Äquivalent. 

Der eigentliche Grund 
meines Schreibens ist 
aber der im selben Heft 
abgedruckte Leserbrief 
von Herrn Lorch aus 
Meppen. 


DIALOG 


SCHNEIDER aktiv 


HOTLINE 
Montags 
15.00 - 19.00 Uhr 
Tel: 089/18 40 24 


Entgegen seiner Kritik 
bin ich der Meinung, daß 
gerade die „miserable 
Papierqualität‘ für die 


Augen sehr wohltuend ist. 


Wer schon einmal mehre- 
re Kilobyte aus einem 
„Hochglanzmägäsin‘““ ab- 
getippt hat, wird mir si- 
cher beipflichten. 

Auch über Herrn Lorchs 
Kritik am Preis von 
Schneider aktiv bin ich 
eigentlich ziemlich über- 
rascht. Im Gegensatz zu 
manchen anderen Com- 
puterzeitschriften hat 
Schneider aktiv bisher 
darauf verzichtet, jede 
Ausgabe mit mehr und 
mehr Werbung zu über- 
laden, um so einen grö- 
ßeren Inhalt vorzutäu- 
schen. Ich persönlich lese 
jetzt seit etwa 10 Jahren 
verschiedene Computer- 
Publikationen und habe 
in dieser Beziehung schon 
sehr böse Überraschun- 
gen erlebt. Aus anfängli- 
chen Hobbyzeitschriften 


wurden mit der Zeit 
„Magazine“, ‚„Professio- 
nals“ und wie sie sich 
sonst noch alle nennen, 
die mitunter vollkommen 
am Leserinteresse vorbei 
ihren Vorstellungen von 
einer „modernen“ Zeit- 
schrift fröhnen. Den Vo- 
gel schoß ein Verlag ab, 
der mir mitten in einem 
Abonnement zu meinem 
Aufstieg zu den ‚‚Pro- 
fessionals““ gratulierte, 
fortan die Produktion der 
abonnierten Zeitschrift 
einstellte und mir statt 
dessen eine andere liefern 
wollte. Deren Pech, daß 
ich so nicht mit umsprin- 
gen lasse! Das extremste 
und auch traurigste Bei- 
spiel ist wohl der Soft- 
warehersteller, der ein ei- 
genes Magazin sponsort, 
um seine Produkte ‚„kri- 
tisch unter die Lupe zu 
nehmen“! 

Mir persönlich kommt es 
auf den Inhalt einer Zeit- 
schrift an und nicht auf 
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deren Umfang. Daher 
glaube ich, im Gegensatz 
zu Herrn Lorch, daß ich 
mit Schneider aktiv z.Zt. 
gut bedient bin. Unab- 
hängigkeit hat ihren Preis, 
und der ist bei Schneider 
aktiv noch nicht einmal 
sehr hoch. 

Noch ein Hinweis für den 
PC 1512-Benutzer: Wer 
mit der gefürchteten Mel- 
dung „Dateiende gefun- 
den“ bei Basic zu kämp- 
fen hat, sollte sein System 
unter MS-DOS installie- 
ren. Die Programme las- 
sen sich dann einwandfrei 
laden. Der Fehler taucht 
unter DOS-PLUS (Schnei- 
der Startdiskette) immer 
dann auf, wenn die Pro- 
grammlänge in Hexadezi- 
maler Schreibweise als 
niedrigstes Byte zfh auf- 
weist. 

ürgen Heisig, 

everkusen 


ZUR UNIVERSAL- 
DATEI AUS 
SPEZIEL 2/87 


Ich arbeite bereits mit ei- 
nigen anderen Dateipro- 
grammen (auch teureren!), 
aber keines sagte mir so 
zu, wie das Ihrige. 
Wirklich Spitze! 

Nun habe ich aber ein 
Problem: Ich lud drei Files 
problemlos ein, arbeitete 
damit — wie auch vorher 
schon öfters — um dann 
mit “9““ (Ende) aufzuhö- 
ren. Aber letztesmal, als 
ich das Programm wieder 
starten und die Files la- 
den wollte, passierte 
Folgendes: 

Zuerst kam im Window 
“File Nr. 4“ (Satz 139), 
aber beim Einladen der 
Files steht “Adresse DA4 
not found“. Kann auch 
nicht, da beim Ablesen 
der Diskette mit CAT nur 
die Files DAl, DA2, DA3 
vorhanden sind. Warum 
ist dies so. 

Rudolf Pettrich, 
Altenfelden 


Niemand kennt das Pro- 
gramm so gut wie der 
Autor selbst. Deshalb 
die Stellungnahme des 
Autors Rainer Pecksen 
zum beschriebenen 
Problem: 


ach der Schilderung bin 
ich der Meinung, daß es 
sich um einen Bediener- 
fehler handelt. Da Feh- 
lermeldungen vom 
Floppy Controller nicht 
abgefangen werden, müs- 
sen diese strikt vermie- 
den werden. Auf der Da- 
tendiskette sollten immer 
mindestens 21 KByte frei 
sein, damit beim Sichern 
vom Betriebssystem ange- 
legte (und vom Programm 
gleich wieder gelöschte) 
BAK-Dateien Platz haben. 
Wenn also eine bestehen- 
de Datei mit drei Daten- 
files um ein weiteres File 
erweitert werden soll, 
müssen noch mindestens 
41 KByte freier Disket- 
tenplatz verfügbar sein. 
Ich vermute, daß die 
Datei DA4 nicht abge- 
speichert werden konnte, 
obwohl in der Parameter- 


datei bereits die File-Anzahl 


4 eingetragen war. 
Um im konkreten Fall die 
Adressdatei zu retten, muß 
folgende Zeile in das 
Hauptprogramm einge- 
fügt werden. 
3705 obersatz =138 : 
filezahl = 3 
Dies gilt unter der Annah- 
me, daß die Datensatz- 
Nummer des letzten Da- 
tensatzes in File drei eine 
138 ist. Durch die zusätz- 
liche Zeile vergißt das 
Programm das vierte Da- 
tenfile, und die alte Datei 
mit Ihren drei Datenfiles 
kann eingelesen und mit 
nunmehr korrekter Pa- 
rameterdatei wieder ge- 
sichert werden. Vor dem 
nächsten Laden ist die 
Zeile 3705 wieder zu 
entfernen. 
Um zu verhindern, daß 
das Programm eine er- 
höhte File-Anzahl in der 
Parameter Datei anlegt, 
obwohl es anschließend 
wegen Platzmangels die- 
ses neue Datenfile nicht 
ablegen kann, ist eine 
Anderung von Zeile 3050 
möglich. Werden die bei- 
den GOSUB-Befehle ver- 
tauscht (zuerst 3490), er- 
folgt sofort die Fehler- 
meldung, bevor die er- 
höhte File-Anzahl in die 
Parameter-Datei einge- 
tragen wird, was dann 
beim nächsten Laden zu 
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dem von Herrn Pettrich 
beobachteten Fehler 
führen würde. 


DFÜ AM CPC 6128 


Ich möchte mit meinem 


Schneider CPC 6128 nun 
auch mit DFÜ beginnen. 
Doch dazu habe ich eini- 
ge Fragen: 

1.) Kann ich an meinem 
CPC problemlos einen 
Akustikkoppler an- 
schließen? 

2.) Kann ich mit meinem 
CPC auch in Datenbanken 
von großen Firmen rein- 
kommen? 

3.) Kann ich die Infor- 
mationen von Datenban- 
ken auch auf meinem 
Drucker ausdrucken las- 
sen? 

Manfred Stegen, 

St. Leon-Rot 


Ein Akustikkoppler setzt 
eine serielle Schnittstelle 
voraus. Diese ist beim 
CPC (allgemein) nicht vor- 
handen, kann aber nach- 


gekauft werden. Erst 
dann ist der Anschlu 
problemlos. Offiziell, 
d.h., als zahlendes Mit- 
glied, können Sie an fast 
jeder Datenbank teilneh- 


men. Inoffiziell sagt man: 


„Es kann nicht sein, was 
nicht sein darf.“ Fast alle 
DFÜ-Programme erlau- 
ben ein Abspeichern der 
Daten auf Diskette und/ 
oder Drucker, generell ist 
diese Option nur von der 
Software abhängig. Be- 
achten Sie, daß die mei- 
sten seriellen Schnittstel- 
len für den CPC ohnehin 
ein solches Programm in 
einem Eprom haben (sie- 
he Test der Pace Schnitt- 
stelle Heft 6/87). 


EWIGER KALENDER 
(6/87) 


Ich wollte mal fragen, ob 


im Jahr 2000 Gründon- 
nerstag auf Freitag, 
Karfreitag auf Samstag 
usw. verlegt wird. Ich 
hoffe, daß da beim Ab- 


12 


schreiben ein Fehler un- 
terlaufen ist. Können Sie 
mir bitte die Änderung 
bekanntgeben. 

Stefan Laier, 
Oberharmersbach 


Unsere Programmredak- 
tion prüfte das Listing 
bedauerlicherweise nur 
bis in das Jahr 1999, 
dann ist “JE“ ohnehin 
in Pension. Schuld an 
dem Fehler hat der 
„Gregorianische Kalen- 
der“, nach dem sich 
auch Programmautoren 
zu richten haben. Danach 
gilt, daß alle 4 Jahre ein 
Schalttag einzulegen ist. 
Eine Jahreszahl, die glatt 
durch vier teilbar ist, be- 
sitzt also 366 Tage. Um 
die Programmierer zu 
ärgern, verfügte aber 
Papst Gregor, daß bei 
vollen Jahrhunderten die- 
ser Tag ausfällt. Dem 
Programm fehlt also nur 
eine Abfrage, ob die 
Jahreszahl trotz Schalt- 
jahr glatt durch 100 zu 
teilen ist. Dann ist der 
Tag wieder abzuziehen. 
Es bleibt also dabei: 
Gründonnerstag findet 
noch vor dem Freitag, 
aber nach dem Mittwoch 
statt. 


MONOPOLY AUS 
HEFT 3/87 


Zu einigen Anfragen, ins- 
besondere zu der des 
Herrn Möckel, hat sich 
noch einmal der Autor 
Alexander Füngling ge- 
meldet: 

Bei der Eingabe von See- 
straße tritt wirklich das 
beschriebene Phänomen 
ein, welches durch einen 
Irrtum meinerseits zu- 
stande kommt: Daich in 
diesem Eingabemenü be- 
sonderen Wert auf Ein- 
gabefreundlichkeit gelegt 
habe, ist es möglich, nur 
Teile des Gesamtnamens 
einzugeben. Das hat aber 
einen entscheidenden 
Nachteil. Geben Sie z.B. 
das Wort ‚‚Seestraße“ ein, 
so sucht der Computer 
in allen Straßennamen- 
strings die Zeichenfolge 
„Seestraße“. Zu seinem 
Verhängnis findet er sie 
schon in ‚‚Chauseestraße“. - 


Nun denkt er, diese Stra- 
ße sei gemeint und gibt 
entsprechende Fehlermel- 
dung heraus. An dieser 
Stelle sei Ihnen (Herr 
Möckel) Dank im Namen 
aller Monopoly-Benutzer 
ausgesprochen, denn 

man muß, um diesen Feh- 
ler zu beheben, in Zeile 
4090 und 8040 Seestraße 
mit Leerzeichen einge- 
ben (See straße). 


Die Tatsache, daß man auf 


dem Straßenzug See 
straße, ... kein Haus bauen 
kann, resultiert natürlich 
aus vorangegangenem 
Problem. Sicherlich geht 
die Zeile 6170 von drei 
Straßen aus, jedoch wur- 
de im Lauf des Program- 
mes diese Variable bei je- 
dem Spieler aus | gesetzt, 
so daß die dritte Straße 
simuliert wird. Ihr Pro- 


blem ist höchstwahrschein- 


lich auf einen Tippfehler 
zurückzuführen, der an 
sehr vielen Stellen im 
Programm erfolgt sein 
kann. Das kann auch der 
Grund sein, warum Sie 
auf mehreren Straßen- 
zügen nicht bauen kön- 
nen. Das Auffinden eines 
solchen Tippfehlers ist 
sehr kompliziert und ver- 
schlingt Unmassen von 
Zeit, da es kein Fehler 
ist, den der Computer 
direkt erkennt (Syntax 
Error). 

Wenn Sie eine Straße ab- 
geben, zieht Ihnen der 
Computer kein Geld ab. 
Wenn Sie vorhaben Stra- 
ßen zu tauschen, so ver- 
einbaren Sie mit Ihrem 
Mitspieler den Kauf- 
preis und geben Sie ihm 
dann die Straße. 

Er wiederum verwendet 
den Menüpunkt „Geld 
abgeben“, um die verein- 
barte Summe zu bezahlen. 
So lassen sich auch ohne 
weiteres Straßen tau- 
schen, ohne daß der Com- 
puter dazwischenpfuscht. 
Sie können dann mehr 
Geld oder Straßen von 
Ihren Mitspielern verlan- 
gen und sind nicht auf 
einen bestimmten Betrag 
festgelegt. 


Alexander Füngling, 
Warendorf 
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(SPEZIAL 2/87) UND 
VIER GEWINNT (3/87) 


Mit der Diskette zu Ihrem 
Sonderheft habe ich ein 
Problem. Bei dem Pro- 
gramm Wörterschieben 
erscheint nach Auswahl 
des Levels das Raster, 
auch lassen sich die Buch- 
staben mit den Ziffern 

1, 2, 3, 5 bewegen. Ge- 
mäß Beschreibung des 
Programmes ist die Taste 
4 mit einem Sucher be- 
legt, dieses funktioniert 
nicht, ebenso ist das be- 
schriebene umrandete 
Kästchen, in welches das 
gesuchte Wort zu setzen 
ist, nicht erkennbar. 

Aus dem Sonderheft 3/87 
habe ich das Programm 
„Vier gewinnt‘ abge- 
tippt. Bei der Auswahl 
Spieler gegen Spieler wird 
nach der Eingabe der 
erste Zug für ROT akzep- 
tiert. Der erste Zug für 
GELB wird auch abge- 
nommen, jedoch erfolgt 
danach unmittelbar die 
Anzeige, daß der CPC 
gewonnen hat. Die Über- 
prüfung des Listings nach 
dem Abtippen hat kei- 
nen Fehler hierbei er- 
geben. 

Kurt Lemm, 

Enningerloh 


Der Fehler in „Wörter- 
schieben“ liegt an der 
zweideutigen Beschreibung. 
Mit f7 wird der Sucher 
an-, mit f4 wieder ausge- 
schaltet. Die Felder, in 
die das Wort eingesetzt 
wird, sind umrandet, 

was aber bei einem Grün- 
monitor schlecht zu se- 
hen sein mag. 

Das Spiel ‚Vier gewinnt“ 
lief auch nach einem 
neuerlichem Test ein- 
wandfrei. Wir vermuten 
einen Tippfehler in Ihrem 
Listing, dem wir ohne 
eine präzisere Fehlermel- 
dung auch nicht auf die 
Spur kommen können. 


VERLAGSKATALOG? 


Ich kenne Ihre Zeitschrift 
erst seit der letzten Aus- 
gabe. Ich muß sagen, sie 
gefällt mir sehr gut. Aber 


nun hätte ich einige Fra- 
gen und ich hoffe, Sie 
beantworten sie bald: 

1. Kann ich bei Ihnen 
Hefte nachbestellen, 
eventuell auch das Son- 
derheft? 

2. Was vertreibt Ihr Ver- 
lag sonst noch? 

3. Hätten Sie eventuell 
einen Katalog? 
Alexander Trost, 
Mengen 


Sie können alle Hefte ab 
der Ausgabe 10/86 per 
Nachnahme oder Scheck 
bestellen. Dies gilt auch 
für die bisherigen Re 
Ausgaben. Unser Verlag 
vertreibt neben Schnei- 
der aktiv Fachzeitschrif- 
ten für verschiedene 
andere Computertypen. 
Software ist nur in Form 
unserer Softbox erhält- 
lich und beschränkt sich 
dabei auf die Listings, 

die in den entsprechenden 
Heften erschienen sind. 
Weitere Artikel, ob Soft- 
oder Hardware, erschei- 


nen nicht in diesem Zeit- 


schriftenverlag. Dadurch 
vermeiden wir auch je- 
den Interessenkonflikt, 
denn welcher Redakteur 
würde schon die Produk- 
te seines Arbeitgebers 
(Verlages) negativ bespre- 
chen? Es dürfte deshalb 
unnötig sein, einen Ka- 
talog herauszugeben. 


SOFTWARE 
GESUCHT 


Wir benötigen Hilfe. Es 
gelingt uns einfach nicht, 
aus der Vielzahl angebo- 
tener Software das für 
uns passende auszusuchen. 
Wir haben einen CPC 
6128 mit Farbmonitor 
und glauben, damit aus- 
kommen zu können. Ei- 
nes unserer Kinder lernt 
Logo, ein anderes Turbo 
Pascal, ein drittes Basic. 
Also benötigen wir ein 
Basic-Lernprogramm, 
einen Turbo Pascal Com- 
piler; wir selber hätten 
gerne ein kleines Word- 
processingprogramm. Ha- 
ben Sie einen Vorschlag? 
Gerhard Neumann, 
Pirmasens 
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Ein Software-Kurs zur 
Programmiersprache Basic 
ist von Schneider erhält- 
lich. Die Erfahrungen 
haben jedoch gezeigt, daß 
sich mit einiger Literatur, 
auch aus Zeitschriften, sehr 
gut lernen läßt. Die Aus- 
wahl an Büchern reicht 
vom allgemeinen Grund- 
wissen bis zu speziellen 
Programmierthemen (Spie- 
le, Dateien). Einfacher ist 
die Auswahl des Turbo- 
Pascal-Programmes (Inter- 
preter und Compiler). 
Unter diesem rasanten 
Namen gibt es nur die Bor- 
land Software, die im 
Fachhandel erhältlich ist. 
Auch bei der Textverar- 
beitung haben Sie wieder 
die Qual der Wahl. Das 
Angebot reicht von den 
einfacheren Programmen 
wie „Tasword‘‘ und 
‚„Startexter‘‘ über das 
leistungsfähige ‚„Word- 
Star‘ bis zum neuen 
„Prowort‘ von Arnor. 
Einen ausführlichen Test 
über Letzteres lesen Sie 

in der nächsten Ausgabe. 


MEHR SOUND- UND 
GRAFIKLISTINGS 


Wir haben uns sehr über 
das Listing USA Sternen- 
banner und National- 
hymne gefreut. Es wäre 
sehr schön, wenn Sie 
demnächst öfters Natio- 
nalflaggen und Hymnen 
bringen könnten, so wie 
bei der Eröffungszere- 
monie der Summer- 
Games (für den Commo- 
dore). Wir vermissen lei- 
der für den Schneider 
gute Grafik- und Sound- 
listings, da ist die Aus- 
wahl für den Commodore 
enorm besser. 

Uwe Grell, 

Hamburg 


Wir tun, was wir können, 
um solche kleinen Pro- 
gramme bringen zu kön- 
nen. Wie immer liegt es 
aber auch an den Einsen- 
dungen zum Thema. Wir 
möchten deshalb den 

Tip an jene Programmie- 
rer weiterreichen, denen 
vielleicht schon die Ideen 
ausgegangen sind. 
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Vielleicht interessieren Sie sich noch gar nicht für 
ein paar Grundlageninformationen zum Monitor und 
glauben, daß man mit dem Wissen nicht viel 
anfangen könnte. Nehmen wir an, Sie besitzen 
— zum besseren Arbeiten — einen Grünmonitor und 
wollen Ihre Spiele auch einmal am Farbfernsehen 
bewundern. Wie geht es am Besten, was ist 
der preiswerteste Weg? 


Erster Unterschied zum 
Fernsehen, es wurde be- 
reits erwähnt, ist der HF- 
Modulator, wobei HF für 
Hochfrequenz steht. 
Mit diesem Gerät kann der 
Computer direkt an den 
Antenneneingang des üb- 
lichen Fernsehers gesteckt 
werden und wirkt dann 
wie ein Sender, der auf ei- 
ner bestimmten Frequenz 
sein — pardon, natürlich 
Ihr — Programm durchs 
Kabel jagt. Bedauerlicher- 
weise wird diese Hochfre- 
uenzform nur für den 
ang durch das Kabel be- 
nötigt. Der Computer er- 
zeugt eine digitale Signal- 
form und der Fernseher 
muß zur Darstellung in 
der Bildröhre das analoge 
Hochfrequenzsignal wie- 
der demodulieren, also 
umwandeln. Da hierbei 
jedesmal ein Qualitätsver- 
lust stattfindet und ein 
HF-Modulator eines Com- 
puters ohnehin nur ein- 
fachster Natur ist, kann 
das Fernsehbild nicht zu- 
friedenstellen. Auch beim 
Schneider-Modulator ist 
dies nicht anders. Der 
— gegenüber der Konkur- 
renz — höhere Preis re- 
sultiert aus dem eingebau- 
ten Netzteil, welches den 
völligen Verzicht auf 
den Original-Monitor er- 
lauben soll. 


EINFACHER 
ANSCHLUSS AN DEN 


FAMILIENFERNSEHER 


Wenn man die Modula- 
tion in eine Sendeform 
umgehen will, dann bleibt 
eigentlich nur der Um- 
weg über eine Video- 
Buchse des Fernsehgerä- 
tes. Bei den herkömmli- 


chen DIN-AV (Audio/ 
Video)-Steckern ist es 
allerdings nötig, sich ein 
Kabel umzulöten, denn 
der CPC-Ausgang ent- 
spricht leider nicht der 
üblichen Norm. Die Skiz- 
ze 1 soll dies verdeutli- 
chen. Wird eine Kabel- 
verbindung in dieser Wei- 
se umgearbeitet, dann 
dürfte das Ergebnis auf 
dem heimischen Fernse- 
her ausreichen, da die 
meisten Spiele ohnehin 
in einem niedrigem Mo- 
dus ablaufen. Der ein- 
fachste und billigste Weg, 
den CPC an einen Farb- 
fernseher anzuschließen, 
ist damit geschildert. 
Voraussetzung ist aller- 
dings, daß das Bildschirm- 
gerät über einen entspre- 
chenden Eingang besitzt, 
was wohl erst seit 2 bis 

3 Jahren üblich ist. Au- 
ßerdem muß natürlich 
ein Grünmonitor vorhan- 
den sein, denn aus des- 
sen Netzteil bezieht der 
CPC seine Betriebsspan- 
nung. 

Natürlich ist es auch mög- 
lich, sich einen HF-Mo- 
dulator zu bauen. Beim 
CPC kommt dann bei 
Verzicht auf den Monitor 
allerdings noch ein Netz- 
teil hinzu, welches das 
Keyboard mit Strom ver- 
sorgt. Hierdurch würde 
die ganze Bauanleitung so 
aufwendig und auch teu- 
er, daß ihre Schilderung 
an dieser Stelle keinen 
Sinn ergäbe. Befassen wir 
uns deshalb lieber, wie 
versprochen, mit den 
Grundlagen. 

Reden wir jetzt einmal 
ausschließlich vom Com- 
puter-Monitor und verges- 
sen die heimische Glotze, 
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die aber mit kleinen Aus- 
nahmen auf die gleiche 
Weise funktioniert. Und 
damit es nicht gleich gar 
zu kompliziert wird, wol- 
len wir uns erst einmal 
auf den monochromen 
Bildschirm beschränken. 
Akzeptieren Sie bitte 
einmal, daß der Compu- 
ter ein Signal losschickt 
und der Monitor dies in 
ein sichtbares Ergebnis 
umwandeln soll. Er be- 
sitzt hierzu einen Video- 
verstärker, der eigentlich 
auf die gleiche Weise 
funktioniert wie ein her- 
kömmliches Gerät in ei- 
ner HiFi-Anlage: Inner- 
halb einer bestimmten 
Frequenz wird ein ankom- 
mendes Signal aufberei- 
tet und an die Bildröhre 
weitergegeben. Dort ist 
es zur Steuerung des Elek- 
tronenstrahles zuständig. 
Was es damit auf sich hat, 
werden wir gleich sehen. 
Am hinteren Ende der 
Bildröhre sitzt eine 
„Kathoden-Kanone“, wel- 
che Elektronenstrahlen 
auf die vordere, große 
Scheibe der Bildröhre aus- 
sendet. Diese Elektronen 
sind natürlich nicht sicht- 
bar, aber sie bringen auf 
der inneren Glasscheibe 
eine Phosphorschicht zum 
Aufleuchten. Damit sie 
überhaupt an der richti- 
gen Stelle auftreffen, muß 
ihre Richtung beeinflußt 
werden. Ein Ring von 
Magnetspulen um die 
„Kanone“ sorgt für die 
korrekte ‚„Flugbahn“. 
Und diese Magnetspule 
wird eben vom Video- 
Verstärker beeinflußt. 
Stellen Sie sich bitte eine 
normale, mittelalterliche 
Kanone vor, die mit Ei- 
senkugeln schießt und de- 
ren Kanonenrohr mit 
Elektromagneten umge- 
ben ist. Legen Sie an der 
linken Seite Spannung an, 
so wird die Kanonen- 
kugel beim Abschuß ein 
wenig nach links fliegen. 
Im Grunde genommen ist 
dieses Beispiel gar nicht 
einmal so abwegig. Tat- 
sächlich handelt es sich 
ja nicht um einen konse- 
auen ausgesandten 
lektronenstrahl, sondern 
um einen unterbrochenen, 


in viele „‚Schüsse‘“ 
zerlegten, Impuls. Man 
sagt, der Elektronenstrahl 
sei „dunkelgetastet“. 
Würde ein ständiger Im- 
puls gelenkt werden, so 
wäre dessen Bewegung 
auf dem Bildschirm sicht- 
bar, spätestens dann, 
wenn er am unteren Ende 
des Bildes angelangt wä- 
re und von neuem oben 
beginnen würde. Der Elek- 
tronenstrahl wäre wie ein 
schräger Strich auf dem 
Bildschirm zu sehen. 


BILDAUFBAU 
IN STREIFEN 


Damit sind wir auch schon 
bei der Bildfrequenz, 
denn es stellt sich gleich 
die Frage, in welchem 
Takt die „Kanone“ schie- 
ßen soll. Dadurch ergibt 
sich ja auch der Beginn 
eines neuen Bildes. Der 
Computer, bzw. der Video- 
verstärker des Monitors 
ist ja nur für die Richtung 
verantwortlich. 

Das Ergebnis eines norma- 
len Super-8-Filmes ist Ih- 
nen sicherlich bekannt: 
Bei 18 einzelnen Bildern 
je Sekunde kann die 
Kamera dem menschlichen 
Auge gerade mal eben ei- 
ne Bewegung vortäuschen. 
Der Eindruck einer saube- 
ren, fließenden Bewe- 
gung ist bei 24 Bildern 
allerdings vollkommener. 
Die Fernsehanstalten und 
auch der Computermoni- 
tor benutzen sogar 25 Bil- 
der in der Sekunde und 
zerlegen diese noch in 

50 Halbbilder je Sekunde. 
Dies heißt also: Jede 

1/50 Sekunde beginnt der 
Elektronenstrahl mit ei- 
nem neuen, halben Bild. 
Bitte glauben Sie nicht, 
der Bildschirm würde in 
eine obere und untere 
Hälfte zerteilt. Der Bild- 
schirm besteht aus 625 
Zeilen, auf die ein Elektro- 
nenstrahl treffen soll 
(auch dies sollten Sie ein- 
fach einmal akzeptieren, 
es ist das Ergebnis einer 
Norm). Ein halbes Bild 
wäre dabei nur jede Zei- 
len mit gerader Zahl, die 
zweite Hälfte entsteht, 
indem die Zeilen mit un- 
gerader Zahl beschossen 
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werden. Hierdurch ent- 
steht ein wesentlich flüs- 
siger Bewegungsablauf 
auf dem Bildschirm, als 
wenn man jedes Bild 
komplett neu aufbauen 
würde, wie es ja beim 
Schmalfilm der Fall ist. 
Das Bild wird also in 
Streifen aufgebaut. Nicht 
zu verwechseln mit der 
eigentümlichen Bild- 
schirmverwaltung des 
CPC, auf die wir in der 
nächsten Ausgabe noch 
zu sprechen kommen. 
Ganz nebenbei sorgt auch 
noch die Phosphorbe- 
schichtung im Inneren 
der Bildröhre für eine 
Nachleuchtzeit. Die exak- 
te Dauer ist abhängig von 
der chemischen Zusam- 
mensetzung und soll hier 
nicht weiter interessieren. 
Aus dem eben erklärten 
Bildaufbau errechnet man 
auch die sogenannte Zei- 
lenfrequenz. Wenn je Se- 
kunde 50 Bilder mit 
312,5 Zeilen (halbe Zei- 
lenanzahl eines Bildschir- 
mes) begonnen werden, 
so ergibt dies 15625 Hz 
(Hertz), also eine Bildfre- 
quenz von 15,625 kHz 
(Kilo-Hertz). Theoretisch 
käme eine höhere Fre- 
quenz einer besseren Qua- 
lität gleich, doch ist dies 
natürlich auch abhängig 
von der „Lieferung“ 

des Computers, der ja 

die Richtung der Elektro- 
nen zu steuern hat. 


DREIFACHER 
ELEKTRONENSTRAHL 
BEIM FARBMONITOR 


Wo bleibt die Farbe, mag 
sich mancher denken. 
Wir haben ja behauptet, 
daß ein sichtbarer Licht- 
punkt nur durch das 
Aufleuchten der Phos- 
phorschicht entsteht. 
Sicherlich haben Sie auch 
schon einmal einen Bild- 
schirm gesehen, der eine 
andere Farbe (Bernstein, 
Grün, Schwarzweiß) liefert. 
Es ist also möglich, Phos- 
phormischungen herzu- 
stellen, die beim Auttret- 
fen von Elektronen in ver- 
schiedenen Farben auf- 
leuchten. Aus der Schule 
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wissen wir auch noch, daß 
es möglich ist, mit nur 
drei Farben jede Farbe 
des uns bekannten Spek- 
trums darzustellen. Na- 
mentlich sind dies Rot, 
Gelb und Blau. In der 
gleichen Schulstunde wur- 
de aber auch erklärt, daß 
es sich hierbei um die 
sichtbaren, die substrak- 
tiven, Grundfarben han- 
delt. Die Farbmischung, 
die wir letztlich sehen, 
entsteht durch das 
„Absorbieren“ eines Licht- 
anteiles durch einen Kör- 
per. Ein schwarzer Gegen- 
stand absorbiert alle Far- 
ben eines Spektrums, 

ein weißer reflektiert 

alle. Letzteres ist der 
Grund für die helle Klei- 
dung in arabischen Län- 
dern. Reflektiertes Licht 
bedeutet ja auch weniger 
Hitze. 

Bei der Versendung von 
Elektronen soll jedoch 
keine Farbe zurückgehal- 
ten werden, sondern es 
gilt, die richtige Mischung 
dreier Grundfarben zum 
gewünschten Ergebnis 
auszusenden. Dazu wer- 
den nämlich Rot, Grün 
und Blau benötigt. Es 
sind dies die additiven 
Grundfarben, die durch 
ihre jeweilige Zumischung 
(statt Absorbtion) wirken. 
Dieser Hinweis muß ge- 
stattet sein, da sogar fort- 
geschrittene User das Kür- 
zel RGB hin und wieder 
mit Rot, Gelb und Blau 
übersetzen und damit 
einen Denkfehler bege- 
hen. 


EINHEITSSIGNAL 
ODER RGB 


Der Computer liefert sei- 
ne Daten in zwei unter- 
schiedlichen Formen. Da 
ist zuerst einmal das 
FBAS-Signal. FBAS lau- 
tet die Abkürzung für 
„Farbbild-Austast- und 
Synchronisiersignal“. Hier 
wird ein Signal gesendet, 
welches der Monitor erst 
einmal wieder auseinan- 
dernehmen muß. Aller- 
dings erhält er diesen 
Impuls nicht in einer 
Hochfrequenzform, son- 
dern schon etwas geschick- 
ter, in digitaler Anord- 
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nung. Bei der Trennung 
dieses Signals treten aller- 
dings trotzdem Qualitäts- 
minderungen auf. 

Der direkte und einfach- 
ste Weg ist der RGB- 
(Rot-Grün-Blau)Ausgang. 
Für jeder dieser Grund- 
farben gibt es ein Signal 
und die richtige Mi- 
schung bringt dann den 
gewünschten Effekt. Ma- 
chen Sie mit dem Farb- 
monitor des CPC doch 
einmal ein Experiment. 
Gehen Sie so dicht wie 
möglich an den Bild- 
schirm und beobachten 
einen einzigen Punkt des 
Cursors, während Sie die 


den Sie enttäuscht. Es 
geht noch komplizierter, 
obwohl sich die Theorie 
dazu unheimlich einfach 
und logisch anhört. 


LOCHMASKE SORGT 


FÜR TREFFSICHER- 
HEIT 


Bei unseren bisherigen 
Erklärungen bestand ja 
immer noch das Risiko, 
daß ein Elektronenstrahl, 
der für Blau bestimmt 
war, den Phosphorpunkt 
Grün traf und damit das 
Bild verfälschte. So ge- 
nau konnte der Video- 
verstärker den Strahl ja 


Skizze 1: Sechspoliger Video Ausgang 


Luninaz 


Blau 


Helligkeit verändern. Sie 
haben mit Sicherheit den 
Eindruck, daß sich die 
Größe verändert, viel- 
leicht bemerken Sie so- 
gar (mit einer Lupe), daß 
dieser eine Punkt in Wirk- 
lichkeit aus drei kleine- 
ren aufgebaut ist, den 
Tripeln, wie man 

diese Anordnung nennt. 
Es sind dies drei unter- 
schiedliche chemische 
Verbindungen, die in 
jeweils einer Grundfarbe 
aufleuchten, sofern sie 
von einem Elektronen- 
strahl getroffen werden. 
Unser Auge ist nicht 
mehr in der Lage, diese 
drei Farben getrennt 
wahrzunehmen, sondern 
akzeptiert eine Mischung. 
Wenn Sie glauben, einen 
dieser Punkte zu treffen, 
erfordere ein Maximum 
an Präzision, dann wer- 


gar nicht lenken, um 

dies auszuschließen. 

Die Lösung war — wie im- 
mer — genial und einfach 
zugleich. Man setzte kurz 
vor die beschichtete In- 
nenseite der Bildröhre 
eine Lochmaske (bei älte- 
ren Fernsehgeräten kann 
es auch noch eine Schlitz- 
maske sein). Da der Ur- 
sprung der Elektronen- 
strahlen auch als Triple 
angeordnet ist, verläuft 
ihre Bahnrichtung auch 
etwas schräg. Durch die 
vorgesetzte Lochmaske 
können die Elektronen 
nur auf dem für sie be- 
stimmten Triplepunkt 
der Phosphorschicht auf- 
treffen. Ein etwas brei- 
terer „Beschuß‘“ schei- 
tert an der Lochmaske. 
Alle Probleme im Bezug 
zu Bildschärfe sind 
durch die Lochmaske 
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nicht zu lösen. Ein wei- 
terer wichtiger Faktor ist 
der Abstand der Triple- 
Punkte. Spitzenwerte 
von 0,2 mm sind dabei 
möglich, beim Schneider- 
Farbmonitor (man 
bedenke den Preis) darf 
allerdings ein Abstand 
von 0,5 mm vermutet 
werden. 

Damit wären die Erklä- 
rungen über das Funk- 
tionsprinzip abgeschlos- 
sen. Ein wenig sehr theo- 
retisch war dieser Bericht 
ja doch, dabei müßte 
noch soviel gesagt, bzw. 
geschrieben werden. Als 
kleinen Ausgleich werden 
wir in der nächsten Aus- 
gabe etwas auf die Gra- 
fikdarstellung des CPC 
eingehen. Wie man es von 
diesem Computer schon 
gewohnt ist, wird auch 
hier wieder eine ‚„‚Abnor- 
malität‘‘ praktiziert, die 
dem Programmierer je- 
doch zum Vorteil gerei- 
chen kann. Zum Schluß 
dann noch ein paar Stich- 
worte zum Monitor. 


HF-Modulator: Wandler, 
(Modulator) der Aus- 
gangssignale des Compu- 


. ters in eine analoge Sen- 


defrequenz setzt. Der 
Fernseher muß dieses 
Signal demodulieren, wie- 
der zurückwandeln. 


Bildfrequenz: Festlegung, 
in welchem Signalrhyth- 
mus Elektronenstrahlen 
„abgeschossen“ werden. 
Damit steht auch der Be- 
ginn des neuen Halbbildes 
fest. Üblich ist eine Fre- 
quenz von 15,625 kHz 
(50 Halbbilder mit 

312,5 Zeilen). 


FBAS: (Farbbild-Austast- 
und Synchronisiersignal) 
Monitor-Ausgangssignal 
mancher Computer. Es 
handelt sich um ein 
Einheitssignal. 


RGB: Üblicher Monitor- 
ausgang, welcher die Si- 
gnale für die drei (addi- 
tiven) Grundfarben Rot, 
Grün und Blau liefert. 


Tripel: Aufbauschema 
dreier Phosphorpunkte, 
die beim Auftreffen eines 
Elektronenstrahls in der 
jeweiligen Grundfarbe 
aufleuchten. (GS) 
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EXPRESS RAIDER 


Bisher fand der Wilde Westen selten im CPC statt. Obwohl das Thema 
einiges hergibt und in Film und Fernsehen beliebt ist, zögerten die großen 
Firmen eine Computerumsetzung zu machen. US Gold hat sich 
drangewagt. Mit Express Raider werden Sie in die verrückte Welt 
Pionier-Amerikas versetzt. Da Sie mal wieder knapp bei Kasse sind, 
beschließen Sie kurzerhand, einen Geldtransport der staatlichen Eisen- 
bahngesellschaft zu überfallen. Um den Zug in Ihre Gewalt zu bekommen, 
müssen Sie aufspringen und sich zur Lokomotive durchkämpfen. 

Nur dort ist es möglich, das ‚Eiserne Roß’’ zu stoppen und die Geldsäcke 
in Empfang zu nehmen. 


Es gibt drei verschiedene Spielmodi, 
die ersten beiden unterscheiden sich 
in der Anzahl der Leben, der dritte 
ist als Generalprobe für besonders 
Vorsichtige gedacht. Man erhält da- 
bei 32 Leben für lächerliche zwei 
Züge. Ausgefuchste Verbrecher 
kommen mit 5 Leben bei acht Zü- 
gen aus. Auch die Schwierigkeitsgra- 
de bestimmen Sie selbst. Die Übel- 
tat beginnt schon auf dem Bahn- 
steig. Der Kessel der Lol wird gera- 
de aufgeheizt und Ihr elektroni- 
sches Wild-West-Abbild betritt den 
Bildschirm. Sie sollten sofort eini- 
ge Bahnarbeiter, die schon Lunte ge- 
rochen haben, durch gezielte Kara- 
tetritte außer Gefecht setzen. Ist 
Ihnen dies gelungen, dann erweh- 
ren Sie sich noch kurz der Hunde, 
die man auf Sie hetzt und ab geht 
die Post, springen Sie sofort auf 

den hintersten Anhänger auf. 


KAMPF AUF DEN 
WAGGONDÄCHERN 


Wie John Wayne in seinen besten 
Tagen müssen Sie sich nun auf den 
Wagendächern nach vorne durchar- 
beiten und die Transportwächter 
durch gezielte Tritte vom Zug wer- 
fen. Gelingt es Ihnen, dann sprin- 
gen Sie einen Waggon weiter und es 
stellen sich neue Probleme. Einer 
der Wächter hat in aller Eile eine 
Kiste aufgerissen, in der sich Wein- 


flaschen befinden. Der nette Herr 
möchte aber nicht mit Ihnen trin- 
ken, nein, er versucht, Ihnen die 
Flaschen an den Kopf zu werfen. 
Ducken Sie sich, wenn er zum Wurf 
ausholt und arbeiten Sie sich lang- 
sam aber stetig vor. Wenn er dann 
einmal gerade keine Flasche wirft, 
dann besiegen Sie ihn mit Ihren 
Karatefähigkeiten. Über derlei fern- 
östliche Künste verfügen aber auch 
andere Gegner, denen Sie sich jetzt 
zu stellen haben. Kaum sind diese 
besiegt, wird das Spiel wirklich 
schwierig. 


Einer der Wächter hat trotz der 
Überaschung seine Schrotflinte 
herauskramen können, zielt auf Sie 
und zögert auch nicht, munter 
drauflos zu schießen. Solche Unver- 
frorenheit verdient die gleiche Be- 
handlung wie der Flaschenwerfer. 
Nach getaner Arbeit werden Sie 
wieder von Karatekämpfern in Emp- 
fang genommen, bevor Sie schließ- 
lich auf dem Kohletender landen. 
Hier erwartet Sie der verrückte Kes- 
selheizer, der für seine Kohlen- 
schaufel eigentlich einen Waffen- 
schein haben müßte. Der Lohn ist 
dafür um so höher. Tragen Sie noch 
einmal den Sieg davon, dann können 
Sie sich die Geldsäcke unter den 
Arm klemmen und warten, bis das 
Programm Sie in das zweite Level 
befördert. 
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BEE Free” 
Hier ändert sich das Szenario. Vom 
erbeuteten Geld konnten Sie sich 
ein Pferd kaufen und sind nunmehr 
bei Ihren Überfällen mobil. Wäh- 
rend Sie neben dem Zug daherrei- 
ten, gilt es, durch ein Fadenkreuz 
auf die Zugwächter zu schießen. 
Diese haben noch immer nicht ge- 
lernt, daß man einem Westernhel- 
den wie Ihnen hilflos preisgegeben 
ist, sie schießen zurück. Erst wenn 
Sie wirklich alle Feindesschützen 
getroffen haben, bemüht sich Ihr 
Pferd um eine schnellere Gangart 
und Sie haben den nächsten Wagen 
vor dem Lauf Ihres Revolvers. 
Auf ein solch eigensinniges Roß 
können Sie sich natürlich nicht ver- 
lassen und deshalb gehen Sie die 
Sache im nächsten Level wieder 
zu Fuß über die Dächer an, wobei 
sich die Anzahl Ihrer Gegner aber 
erhöht hat. 


GUTE, BEWEGTE GRAFIK 


Am oberen Bildschirmrand hilft 
Ihnen eine Anzeigetafel mit einigen 
Angaben. Neben der Punktzahl 
und Highscore erfahren Sie auch 
die Zei“, die Ihnen noch bis zur 
„Erledigung‘ des nächsten Gegners 
bleibt. Eine Energieanzeige füllt 


Express Raider 
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Von U,$. Gold bei Waldeck 


sich bei einem Zweikampfsieg auf, 
während ein wenig der wertvollen 
Lebensenergie bei einer Nieder- 
lage verlorengeht, bis man schließ- 
lich vom Dach (oder Pferd) fällt. 
Die Grafik ist bei Express Raider 
ausgezeichnet. Die Wächter und 
der Zug sind sehr detaillreich darge- 
stellt und durch einige programm- 
technische Tricks hat man den 
Eindruck, als fahre der Zug wirklich. 
Die Titelmelodie zu Beginn des 
Spieles ist recht gut, gehört aller- 
dings nicht zum Allerbesten. Die 
Geräusche des fahrenden Zuges 
sind zwar realistisch, können aber 
auch etwas auf die Nerven gehen. 
Wegen der guten Grafik und der 
guten Idee (mal etwas anderes), 
liegt die Motivation jedoch sehr 
hoch. Und weil es soviel Spaß 
macht, gilt: „sehr empfehlenswert“. 
(GS/C. Borgmeier) 


REN 
RD 22" 


GLOSSE 


THEWORLD 


BESSERE FARBGRAFIK 
AUCH FÜR DEN 
PC 1512 


Gegenüber der neuen EGA- 


Serie der Firma Schneider 
fiel der alte PC 1512 durch 
seine außergewöhnliche 
merk- und unwürdige 
Grafik auf. Gerade durch 
die neuen PCs konnte sich 
Fritz Förster, Leitergottes 
der Computerdivision 
Deutschland, endlich ein- 
mal durch einen Vergleich 
davon überzeugen und 
versprach Abhilfe. 

Falls sich tatsächlich noch 
eine der alten Kisten ver- 
kauft, so versprach er 
anläßlich des offiziellen 
Begräbnisses, dann werde 
er persönlich dafür sor- 
gen, daß jeder Käufer 
auch in Bezug auf die 
Grafik zufrieden sei. Ku- 
lanz sei nicht nur ein Ver- 
sprechen, sondern auch 
teuer. Gegen Einsendung 
eines entsprechenden 
Verrechnungsschecks will 
Schneider gratis und um- 
sonst jedem PC 1512- 
Käufer, zusammen mit 
dem herzlichen Beileid, 
auch ein Bilderbuch zu- 
kommen lassen. Es han- 
delt sich dabei um ‚‚Das 
große Abenteuer in der 
Sesamstraße‘‘ auf Bütten- 
papier. Gegen eine wei- 
tere Gebühr können sich 
auch die Besitzer eines 
Farbmonitors ausrüsten. 
Faber Castell, der Graf 
mit dem guten Namen, 
liefert ein „PC 1512- 
Ausmalset“, bestehend 
aus einem Dutzend Bunt- 
stiften in der noblen 
Blechpackung. 


ALDI/COMMODORE- 
PARTNERSCHAFT VOR 
ZERREISSPROBE 


Was mit viel Eintracht be- 
gann, droht nun zu schei- 
tern: die Zusammenar- 

beit zwischen den Firmen 


- Aldi und Commodore. 


Der Wurst- und Gemüse- 
discounter weigert sich 
energisch, den Amiga 1000 
ins Angebot zu nehmen. 
Chefeinkäufer Fred Sittich 
meinte dazu als Begrün- 
dung: „Unser Konzern 
legt großen Wert darauf, 
in den Computerfachab- 
teilungen ausschließlich 
Komplettgeräte zu verkau- 
fen. Dies ist mit dem 
Amiga 1000 nicht mög- 
lich. Es fehlt nicht nur 

der Basic-Kurs, sondern 
sogar schon die dazu not- 
wendige Datasette. Wir 
von Aldi wissen schon, 
was unsere Kunden sich 
wünschen, Hauptsache 
Commodore weiß was 
Aldi wünscht.‘ Von 
Commodore weiß, was 
Aldi wünscht.‘ Von 

Huhn Stellung: ‚Wir 

sind durchaus zu Kompro- 
missen bereit. Den Basic- 
Kurs legen wir als Hör- 
spiel zusammen mit ei- 
nem Walkman der Ver- 
kaufspackung bei. Darüber 
hinaus sind wir sogar da- 
mit einverstanden, daß 
der Amiga ins Bohnen- 
regal, statt wie geplant 

in die Süßwarenabteilung, 
kommt. Wenn Aldi nun 


Per Brieftaube 
wurden uns wie- 
der die heißesten 
Informationen 
zugespielt und wir 
sehen keine andere 
Möglichkeit zur 
Rache, als diesen 
Unfug zu 
veröffentlichen. 


nicht einlenkt, müssen wir 
neue Vertriebswege su- 
chen. Schließlich gibt es 
in der Branche noch an- 
dere Größen, etwa 
Eduscho oder Tschibo. 
Und wenn nichts mehr 
geht, geht ja immer noch 
McDonald.“ 


ATARI MIT 


NEUERSCHEINUNGEN 


Nach dem Riesenerfolg 
des Blitter-Chips (konnte 
leider noch nicht ausge- 
liefert werden), des Atari 
PCs (konnte leider noch 
nicht ausgeliefert werden) 
und der Workstation mit 
68020 Prozessors (konnte 
leider noch nicht ausge- 
liefert werden) bleibt 
Atari (ist geliefert; und 
wie) weiter innovativ. 
Jack Dämiel schlug des- 
halb wieder einmal in sei- 
ner Eigenschaft als Fami- 
lienoberhaupt zu. Nach 
dem Motto: „Nicht lie- 
fern können wir alles!“, 
kündigte er für das Früh- 
jahr nächsten Jahres 
einen Atari AT mit dem 
Betriebssystem CP/M auf 
Emulatorbasis an. Sollte 
das Gerät, wie so vieles 
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andere, doch nicht ge- 
baut werden, dann ist die 
Markteinführung bereits 
für den Herbst dieses Jah- 
res geplant. „Bei einer 
solch aggressiven Ver- 
triebspolitik bleiben fi- 
nanzielle Rückschläge 
nicht aus“, gab der Alt- 
meister zu, „doch werden 
wir für unsere Pressean- 
kündigungen demnächst 
Eintrittskarten verkaufen, 
das bringt’s dann wieder 
rein‘. In dieser Bezie- 
hung könnte der Hobby- 
Manager recht haben. Die 
Veranstaltungen gelten als 
das Unterhaltsamste in 
der Branche und werden 
wohl ausverkauft sein. 


KEIN WÄRMESTAU 
BEIM GEPLANTEN 
SCHNEIDER AT 


Mit einem neuen System 
macht Schneider beim zu- 
künftigen AT endlich 
Schluß mit der Lüftungs- 
diskussion. Wie schon 
mehrfach beschrieben, 
konnten sich die Fach- 
leute aus aller Welt — und 
jene der Firma Schneider 
erst recht — nicht eini- 
gen, wo der Kühlventila- 
tor hingehört. Mal auf 
der Harddisc, mal im Mo- 
nitor und manchmal über- 
haupt nicht. Die Profis 
aus den deutschen Lan- 
den beendeten den Ärger, 
indem sie dem AT eine 
Wasserkühlung spendie- 
ren. Gerade als man über- 
legte, ob die Produktion 
eines taiwanesischen Fön- 
Herstellers zur Gebläse- 
kühlung aufzukaufen sei, 
flatterte das Angebot 
eines Österreichischen 
Glycolwein-Herstellers 
auf den Tisch. Da sich der 
1984er Jahrgang mittler- 
weile in Dutzenden von 
Autokühlern bewährt hat, 
halbwegs süffig und auch 
noch billiger als ein Haar- 
trockner ist, entschloß 
sich Schneider spontan 
(wie immer) zur Flüssig- 
kühlung. ‚‚In der Not“, 

so der Hausmeister und 
stellvertretende Vertriebs- 
leiter, „geht auch Wasser. 
Für einen Warmstart des 
ATSs sollte es jedoch auf 
40 Grad Celsius vorge- 
heizt werden.“ 


MARKTERFOLG MIT 
MINI-PC 


Mit dem wahnsinnig klit- 
zekleinen Personal Com- 
puter MBC 16-, verzeich- 
net die Firma Sanyo 
endlich wieder rote Zah- 
len. Auf die Markteinfüh- 
rung durfte man allerdings 
lange warten, denn das 
PC’chen rutschte bei Rei- 
nigungsarbeiten hinter ei- 
ne Bierflasche und mußte 
über ein halbes Jahr ge- 
sucht werden. Nunmehr 
jedoch ist es soweit. Der 
ungemein peksie IBM- 
Kompatible verspricht, 
trotz niedriger Produk- 
tionskosten, ein großer 
Verkaufserfolg zu werden. 
Die aus einer Zigarren- 
kiste bestehende Zentral- 
einheit besitzt ein aus- 
baufähiges Dachgeschoß 
und kann dann mit einer 
Zusatzkarte (ein Achtel 
der Normalgröße) erwei- 
tert werden. Die, in eine 
Brotbüchse untergebrach- 
te, Tastatur enthält alle 


Tasten, die notwendig sind, 


es fragt sich nur wo. 
Probleme gibt es bei der 
5,25-Zoll-Diskettensta- 
tion. Die Crew der CA 
(sie bekam den PC per 
Brieftaube) bemängelte 
nach dem Test den Um- 
stand, die Disketten erst 
zweimal falten zu müssen, 
damit sie in das Laufwerk 
passen. Bei dem Arbeits- 
aufwand, so der Chefre- 
dakteur, sei es ja schon 
fast unerheblich, daß 
Schreib- und Leseroutinen 
dann ohnehin nicht 
laufen. 


NEUE GEM-DESKTOP 
UHR 


Digital Research, Herstel- 
ler und Verursacher des 
GEM-Desktops, will das 
System weiterhin för- 
dern und ausbauen. Für 
den deutschen Markt 
wurde eine Erweiterung 
entwickelt, die eine be- 
sonders luxuriöse Uhr auf- 
weist. In der ‚„Schwarz- 
wald-Version V.08/15“ 
meldet sich zu jeder hal- 
ben Stunde ein grafisch 
hervorragend animierter 
Kuckuck mit gleichlauten- 


GLOSSE 


dem Ruf zu Wort. Die 
packende Sequenz wurde 
in Zusammenarbeit mit 
Deutschlands berüchtig- 
stem Tierfilmer, Heinz 
Sielmann, entwickelt. Für 
den US-Markt und spe- 
ziell für die IBM-Geräte 
arbeitet man an einem 
Geiervogel, der die Natio- 
nalhymne pfeifen kann. 


PROBLEME BEIM 
WETTERCOMPUTER 
IN OFFENBACH 


Probleme gab es mit dem 
Sommerbeginn in diesem 
Jahr. Wie erst jetzt be- 
kannt wurde, fiel der 
Schneider CPC, der für 
die Satellitenauswertung 
zuständig ist, total aus. 
Eine lockere Schraube 
im Kassettenrekorder 
war der Grund für einen 
permanenten Syntax 
Error. Erst ein eiligst her- 
beigeschaffter Laubfrosch ” 
konnte die Situation ret- 
ten und den Sommer an- 
kündigen. Mittlerweile 
verrichtet ein Commo- 
dore C64 seinen Ersatz- 


dienst. Erster Programm- 
erfolg ist eine Hitzewelle 
zur Weihnachtszeit. 


FERNSEHAUSVER- 
KAUF 


Das Beispiel von ‚Ziem- 
lich Fröhlich Computer“ 
aus dem M&T-Verlag 
(Mark & Tunix) macht 
Schule. Nachdem die 
Company völlig uneigen- 
nützig Werbung in der 
ARD - Sendung ‚‚Com- 
putercorner“ betreiben 
kann und nunmehr die 
ZDF-Reihe ‚Computer- 
zeit‘ fest an sich ge- 
bracht hat, wird auch 
der Rest der öffentlichen 
Anstalten verkauft. Der 
Springer Verlag erwarb 
bereits die „Tagesschau“ 
(Einblendung: ‚‚Lesen 
Sie den Rest morgen in 
Bild‘), Julius Hacketal 
sicherte sich die 
„Schwarzwaldklinik“; 
Einblendung: ‚Meine 
Privatklinik heilt alles‘“). 
Atari legte eine Unsum- 
me für die Tafel 

„Kurze Unterbrechung“ 
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SEEN 


auf den Tisch; geplante 
Einblendung (leider noch 
nicht lieferbar): „Das 
kann der ST aber auch“. 
Schneider steht in Ver- 
handlungen um die 
„Sendung mit der Maus“ 
und Commodore denkt an 
die Dallas-Serie, muß je- 
doch erst einmal Bayern 
München verkaufen, das 
sich wiederum für das 
„Aktuelle Sportstudio“ 
interessiert. Bei der letz- 
ten Intendantensitzung 
ließen sich die Verant- 
wortlichen für den Ver- 
kauf feiern. „Endlich“, 
so der Sprecher der Ver- 
triebsleitung, ‚‚ist das 
Fernsehen wirklich öf- 
fentlich, im wahrsten Sin- 
ne des Wortes. Jeder kann 
kaufen und sich seine 
Lieblingssendung sichern. 
Momentan sind noch zwei 
Folgen der „Hitparade“ 
zu haben und ein Sechser- 
pack-Sonderangebot 

alter Hans-Moser-Filme. 
Wer jetzt nicht zugreift, 
ist selber schuld.“ 


DATA BECKER 
BRICHT MIT ALTER 
TRADITION 


In regelmäßigen Abstän- 
den wurden bisher in der 
Hausfrauenzeitschrift des 
renommierten Verlages 
die Fahrzeuge verdienter 
Mitarbeiter vorgestellt. 
Spitzenreiter waren ver- 
schiedene Enten, zur Si- 
cherheit, und um Verwechs- 
lungen vorzubeugen, zu- 
sätzlich als Auto bezeich- 
net. Mit dem Foto eines 
Motorrades beendete man 
nun diese kleine aber 
menschliche Serie. Wie es 
heißt, durfte der Verlags- 
fotograf nunmehr endlich 
einen Kellerraum beziehen 
und sein Zelt, welches 
sich bisher auf dem Park- 
platz befand, wurde über- 
flüssig. Damit entfällt 
aber auch die Gelegen- 
heit zu so manchem 
Schnappschuß. Zusätz- 
lich muß ein Parkwächter 
eingestellt werden, des- 
sen Aufgaben bisher der 
Fotograf ehrenamtlich 
innehatte. Bewerbungen 
hierzu bitte nur mit 

Bild (des Autos). 


8: 


ZWEI WEGE 
ZUM ZIEL 


Ihr Programm können Sie unter Schneider Basic 
als geschütztes File abspeichern. Diese Methode funk- 
tionierte nach Markteinführung des CPC genau noch 
3 Wochen, dann kursierten die entsprechenden Pokes, 

die den Protected-Mode aufhoben. Sie sehen, den 
perfekten Kopierschutz gibt es noch nicht, zumindest 

hat der Hobby-Programmierer — wenn man da an 

Laserloch-geschützte Disketten denkt — nicht 

die technischen Voraussetzungen dafür. 


Im privaten Bereich wird 
sich der Kopierschutz 
immer auf einige Kleinig- 
keiten beschränken, die 
den gewieften Daten- 
schnüffler, sei es ein 
Klassenkamerad oder 

der Bruder, etwas Zeit 
kosten. Mal eben schnell 
im Programm pfuschen, 
ist dann nicht mehr mög- 
lich, es sei denn, man gibt 
seine Diskette für länge- 
re Zeit aus den Händen. 
Der Wunsch, ein Pro- 
gramm gegen fremde Blik- 
ke zu schützen, hat schein- 
bar nichts mit der Angst 
vor Raubkopierern zu 
tun, sondern wird zu ei- 
nem Rätsel, das es zu 
lösen gilt. Deshalb haben 
sich gleich zwei Pro- 
grammautoren unabhän- 
gig voneinander an die 
Arbeit gemacht, um eine 
Passwort-Routine (Hans 
Thiele) zu entwickeln, 
bzw. die ESC-Taste zu 
sperren. Wir haben beide 
Programme einmal neben- 
einander gestellt, obwohl 
sie fast nach der gleichen 
Methode ablaufen. 


SPERREN DER 
ESC-TASTE 


Hans Thiele hat mit sei- 


nem Programm eine klei- 
ne Unterlassungssünde be- 
gangen, denn er vergißt, 
daß die Protected-Spei- 
cherroutine dank der 
Pokes nicht zuverlässig 
ist. Sein Programm muß 
mit SAVE‘“Name“,P ab- 
gespeichert werden, sonst 
kann es ohnehin mit 
zweimaligen Betätigen der 
ESC-Taste unterbrochen 


TIPS & TRICKS 


werden. Aber da diese 
Systemroutine kein Ge- 
heimnis mehr ist — auch 
wir haben schon des öf- 
teren darüber berichtet —, 
hätte man gleich in der 
ersten Zeile die ESC- 
Taste sperren sollen. 

Am einfachsten geht dies 
durch einen Poke, aber 
da Andreas Müller die 
Methode benutzt hat, 
wollen wir ihm nicht vor- 
greifen. Statt dessen 
kann auch BASIC einige 
Überraschungen bieten. 
Besonders gemein ist die 
Umwandlung der ESC- 


U BE = <= = 22 2 2 2 2.2 2.22.2222 2 2 2.2.2.2 .2.2.2 2.2.20 
11 °®DEMO-PROGRAMM ZUM SPERREN DER* 
12 ESC-TASTE * 
13 '# VON * 
14 '# ANDRAES MUELLER * 
15 ’*# FUER * 
16 °* SCHNEIDER AKTIV * 
17 '# CPC 464/664/6128 * 
U: u = = 2 2 2 2 2.2 2.2 2.2 22.2.2 2 22 22.2222 2202.2023 
eu 

380 MODE 1 


48 POKE &BDEE,&C9I 
‘Dieser Befehl sperrt die ESC Tast 

e 

Sn KEY DEF 66,8,8,08,®8 

’ ESC Taste nicht mehr abfragen 

60 PRINT "Dieser CALL Befehl eignet 
sich" 

78 PRINT "gut dazu,um eigene Progra 

mme ” 

88 PRINT "zu schuetzen."”:PRINT 

98 FOR x=1 TO 2888:NEXT 

18a PRINT:PRINT "Bitte geben Sie da 

s Password ein :" 

118 PRINT 

128 LTNE INPUT kennw$ 

138 IF kennw$<>"SCHNEIDER AKTIV" 

EN 148 ELSE RUN 

148 CS 

ı158# I1.OCATE 2,18 

168 PRINT "Das eingegebene Passwort 
ist” 

178 PRINT "ungueltig.” 

188 PRINT "Deshalb wird der Speiche 
r geloescht !!!" 

198 FOR x=1 TO 19888:NEXT 

UM CALL 6BD11 ” Program load faile 

d 


TH 
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Taste in einen völlig an- 
deren Befehl, den Reset 
durch CALL 0. Dazu 
braucht es eigentlich nur 
zwei Zeilen: 

Erstens: Eine im Pro- 
gramm nicht benutzte 
Tastenkombination der 
Zehnertaste wird mit ei- 
nem Erweiterungsstring 
belegt. Ctrl + Enter bie- 
tet sich geradezu an. Ge- 
meint ist die kleine Enter- 
Taste, denn mit dieser 
wird normalerweise der 
Kassetten-Autostart ini- 
tialisiert. Innerhalb eines 
Programmes braucht man 
diese Routine nicht und 
außerdem wird man die 
beiden Tasten nicht aus 
Versehen benutzen. Ge- 
ben Sie also ein: 

1 KEY 140,“‘CALL 0“ 
+CHR$(13) 

Damit wird ein Reset ver- 
ursacht, sobald man die- 
se beiden Tasten drückt. 
Nun muß man nur noch 
dafür sorgen, daß dies 
auch bei der ESC-Taste 
passiert. Mit 

2 KEY DEF 66,1,140 
wird der ESC-Taste die 
Bedeutung der Taste 140 
zugewiesen, also den 
Reset. Fairerweise sollte 
man fremde Benutzer auf 
die Gefährlichkeit von 
ESC hinweisen, bevor « 
man sie an das Programm 
läßt. Statt eines Resets 
lassen sich natürlich auch 
andere Befehle initialisie- 
ren, das reicht von der ein- 
fachen Verwarnung bis 
zum gemeinsten aller 
Tricks, dem Löschen der 
Diskette. 


MATHEMATISCHE 
VERSCHLÜSSELUNG 


Mit diesen zwei Zeilen ist 
das Programm von Hans 
Thiele dann gegen Unter- 
brechungen geschützt, so- 
bald es gestartet wird. 
Seine dreimalige Abfrage 
nach einem Passwort 
nimmt der Autor sehr 
genau. Wer es Amateur- 
Hackern, aber auch sich 
selbst, etwas einfacher 
machen will, der trägt in 
Zeile 130 das Geheim- 
wort in Großbuchstaben 


“ein und wandelt den Ein- 


gabestring in Zeile 140 
und 150 (und weitere) 


TIPS & TRICKS sch 


war a 

in UPPER$(wort$) um. 1 RRRRRRRRARAHRRSRRRSRRRRISE ohne es vorher abzuspei- 
Jetzt kommt esaufGroß- og x PASSWORT *  chern? Vielleicht sollte 
oder Kleinschreibung a0 ’# <VON # man den kleinen Tip 
nicht mehr an. DenEin- . v3 HANS THIELE „ dankbar verwenden. 
trag des Kennwortes kann au „ Das richtige Sperren der 
man auch etwas erschwe- 58 ’* FUER ESC-Taste erledigt er, 
ren, indem man direkt den 69 ’* SCHNEIDER AKTIV # genauso wie wir es VOT- 
Charaktersatz angibt. In 62 + CPC 464/664/6128 # her besprochen haben, 
He müfßste es dann 6 ARRRRHRRRHRRRHREIRSISIIAENIESEIRSEIE N duch eine Ber 

i F z R sung zur geänderten 
ar ass$-CHRSK (84) 78 MODE 2:PEN B8:PAPER 1:BORDER 15:I Tastatur (Zeile 50). 
+CHRSCT3)+CHRSCTT) NK © ‚e: INK 1,26: ELS Zum Kennwort gilt wieder 
Das Passwort heißt nun 88 PAINT:PAINT:PRINT:PRINT:PRINT " das Gleiche wie zum vor- 
immer noch TIM, aber da Dieses Programm ist durch e angegangenen Listing, 
wohl niemand den kom- is Hasauart zeschuetzt LiE * lediglich den Systemreset 
pletten ASCII-Code im T £ Tor hat er mit dem CALL 
etwas komplizierter, mit 188 PRINT " Nach der dritte scheint, als habe Andreas 
einem Blick alles zuerfah- n Falscheingabe wird das Programm g Müller etwas gegen den 
ren. Die Perfektionisten, elvescht. " simplen CALL O 


die immer noch nicht ge- ‚ n FERN ZERBSTENGEBPEFSEHIESERHERF OFEN 
nug haben, können den 118 PRINT:PRINT:PRINT HAUPTPROGRAMM 


Charakterstring aus einer 128 INPUT "” Bitte geben Sie das r UNBEDINGT 


Berechnung holen, also ichtige Passwort ein : "‚wort$ PERFEKT ABSICHERN 
CHR$(21*4)+CHR$ 1308 pass$="Tim" ————— 
ee 1)) 148 IF wort$<>pass$ THEN 170 Di Den RD und 
jetzt Drauchen Sie schon 15@ IF wort$-pass$ THEN 288 ee 
Zeit und Ruhe, um das 168 GOTO 148 lichkeiten aufgezeigt, mit 
Passwort herauszufinden, 178 CLS:PRINT:PRINT " denen man seine Program- 
selbst wenn Sie die Zeile DAS WAR FALSCH " me zumindest kurzfristig 
kennen. Verwenden Se 48@ PAINT:INPUT "” Bitte gebe schützen kann. Ein gro- 


dann noch mehr Buchsta- 
ben, oder lassen Sie den 


ßes Problem kommt na- 


n ee erneut das richtige Passwort tirlich Hann anf den Pro- 


UPPER$ weg, dann ko- ein ‚wort$ grammierer zu, wenn das 
stet die Entschlüsselung 198 IF wort$<>pass$ THEN 228 Listing nicht einwandfrei 
schon mehr Zeit als man- 28@ IF wort$=pass$ THEN 288 funktioniert und der 
cher aufbringen will. Sie Rechner aufgrund einer 

nr . 218 GOTO 198 
selbst müssen sich schon 228 CLS:PRINT:PRINT " Fehlermeldung von selbst 
die Mühe machen, aber die 5 ” CH ei in den Direktmodus geht. 
Zeit können Sie einspa- DAS WAR WIEDER ERBE B Dann ist alles wieder of- 
rei, indem Sie die drei- 238 PRINT: PRINT Sie _ fen. Andererseits reizt ein 
malige Passwortabfrage in haben nur noch eine Eingabe !!! " fehlerhaftes Programm 
einer Schleife program- 248 PRINT: INPUT ” Geben auch nicht dazu, es zu ko- 


mieren, statt, wie im pieren. Es gibt jedoch 


Lising, nacheinander. Sie nöch einmal das Passwort ein ! Fehlerquellen, die man 
— ‚wort$ unfreiwillig übersieht. Als 
ESC-ABFRAGE 258 IF wort$<>pass$ THEN CALL &8 Beispiel hierzu ist eine 
VERHINDERN 268 IF wort$=pass$ THEN 288 Leseroutine Du Diskette 
m 9979 G60T0 2508 auizuiuhren. Der Anwen- 
Andreas Müller traut den FRE: R der muß nur einen fal- 
Hackern nicht viel zu. 2808 Hier beginnt Ihr Programm schen Namen angeben, er- 
Anders kann man es nicht hält die Fehlermeldung 
verstehen, daß er in Zeile aber keiner auf die Idee unbrauchbar, aber immer- ‘File not found“ und ist 
40 die Abfrage der ESC- kommen, ein Passwort hin sichert er ein Pro- mitten im Direktmodus. 
Taste unterdrückt. Mit dadurch erfahren zu wol-_ gramm gegen Fehlbedie- An solche Kleinigkeiten 
dem Poke kann kein len, daß er den Rechner nung ab. Oder ist es Ih- muß jeder denken, der 
„Drei-Finger-Reset‘“ durch zurücksetzt. Im Zusam- nen noch nie passiert, sein Programm absichern 
Shift+Ctrl+ESC durchge- menhang mit einem List- daß Sie ein Programm will. In Basic ein fast un- 
führt werden. Es wird schutz ist dieser Poke also „rausgeschmissen“ haben, möglicher Wunsch. 


Menschen in Not brauchen Hilfe: weriiee 
schnell, wirksam. Die beiden kirchlichen Hilfs- 
werke nehmen ihren Auftrag ernst. 


| + Deutscher Cantasverband, Konto 202, 

KISS Postgiro Karlsruhe oder Banken und Sparkassen. 

fasl Diakonisches Werk Konto 502, Postgıro Stuttgart oder 
WER Banken und Sparkassen. 


Kennwort NO 


7 IN AFRIKA 


BASIC IST 


GANZ 
EINFACH. 


Wer hatte von den Neueinsteigern in die Computerei 
noch nie Schwierigkeiten mit der Druckerausgabe? 
Besondere Schwierigkeiten bereiten immer wieder die 
leidigen Steuerzeichen. Wir hoffen, daß mit diesem 
Beitrag, dem vierten in unserer Serie über die Grund- 
lagen des Programmierens in Basic, die meisten Unklar- 

heiten beseitigt sein werden. 


In diesem Beitrag wollen 
wir für unser Software- 
dateiprogramm die Druck- 
ausgabe programmieren. 
Warum wir den Menü- 
punkt 5 schon im vierten 
Beitrag behandeln, ihn 
also sozusagen vorgezo- 
gen haben (die Menü- 
punkte drei und vier 
werden in späteren Bei- 
trägen behandelt)? Nun, 
daran sind Sie, unsere 
Leser, „Schuld“. Denn 
als Reaktion auf unsere 
Serie wurde immer wie- 
der der Wunsch an unse- 
re Programmredaktion 
herangetragen, dieses Ka- 
pitel vorzuziehen, da in 
diesem Bereich wohl die 
größten Unklarheiten 
bestehen und immer wie- 
der Schwierigkeiten mit 
den Druckroutinen auf- 
treten. 


WAS SIND DRUCKER- 
STEUERZEICHEN? 


Diese Schwierigkeiten ha- 
ben meist einen Grund: 
Die leidigen Steuerzei- 
chen! Was sind nun aber 
Druckersteuerzeichen? 
Kurz gesagt, kann man fol- 
gendes feststellen: Druk- 
kersteuerzeichen sind be- 
stimmte Zeichenfolgen, 
die man dem angeschlos- 
senen Drucker senden 
muß, um bestimmte Reak- 
tionen des Druckers zu 
erzwingen. 

Die meisten handelsübli- 
chen Druck:r sind in der 
Lage, mehr als nur Buch- 
staben oder Zahlen auf 
das Papier zu bringen. 
Man kann zwischen ver- 
schiedenen Schriftarten 


wählen. Beim DMP 2000, 
für den unsere diesmalige 
Druckroutine geschrie- 
ben ist, sind dies: 
Standard, Elite, Propor- 
tionaldruck, Schmal- 
schrift, NLQ-Standard 
und NLQ-Proportional. 
Zusätzlich zu diesen 
Schriftarten können Sie 
noch wählen zwischen 
Tiefstellen, Hochstellen, 
Doppeldruck, Kursiv, 
Fettdruck, Unterstrei- 
chungen und Bereitschrift. 
Woher soll nun der Druk- 
ker wissen, wie er druk- 
ken soll? Dazu müssen Sie 
ihm Ihren Wunsch mittei- 
len. Und dazu dienen 

die Druckersteuerzeichen. 
Die meisten dieser Steuer- 
zeichen beginntn mit der 
Folge chr$(27). Dies be- 
deutet für den Drucker, 
daß er das Nachfolgende 
nicht ausdrucken, son- 
dern bestimmte Funk- 
tionen ausführen soll. 
Diese chr$(27)-Funktio- 
nen werden allgemein 
auch Escape Sequenz, 
kurz ESC, genannt. 


VERSCHIEDENE 
DRUCKER VERLAN- 
GEN VERSCHIEDENE 
DRUCKERZEICHEN 


Leider benutzen die 
Druckerhersteller-Firmen 
nicht immer die gleichen 
ESC-Codes, um bestimm- 
te Funktionen aufzuru- 
fen. Daher müssen Sie bei 
jeder Druckroutine über- 
prüfen, ob die Steuerzei- 
chen, die verwendet wer- 
den, mit den Steuerzei- 
chen Ihres Druckers über- 
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5008 CLS 
SB1IB GOSUB 5998 


59828 CAT 


5830 LOCATE 18,22:PRINT"Welche Date 
i soll ausgedruckt werden 7" 

5048 LOCATE 35,24: INPUT"";dat$ 

5058 CLS 

5068 z=-9:G0O5UB 8938 

5878 GOSUB 5998 

5888 LOCATE 29,11:PARINT "Drucker on 

-line?" 

5898 LOCATE 23,12:PRINT "Genuegend 
Papier eingelegt?" 

5188 CALL EBB18:IF INKEY(45)=® THEN 
G0TO 5130 

5118 IF INKEY(46)=® THEN CLS:G0TO 2 
998 

5128 GOTO 51898 

51380 CLS:LOCATE 8,12:PRINT "Wird Mi 
tlesen der Datensaetze auf dem Bild 
schirm gewuenscht?":mitl=®:CALL EBB 
18:IF INKEY(45)=® THEN mitl=1 

5148 PRINT #8,CHR$( 27) ;"C";CHA$( 72) 


’ 
5158 
5168 


PRINT 
PRINT 


#8 ,CHR$( 27) ;"N",CHR$(B) ; 

#8, CHR$( 15) ; 

5178 PRINT #8,5TRING$( 132,"-") 

5188 PRINT #8,"LfdNr";TAB(9) "Progra 

mmname" ; TAB( 48) "DiskNr"; TAB( 48) "Sta 

rtfile"”; TAB( 64) "Laenge"; TAB( 72) "Bem 

erkungen" 

5198 PRINT #8,5TRING$( 132,"-"):IF m 
it1=8® THEN CLS:LOCATE 38, 12:PRINT " 

Liste wird gedruckt” 

52088 zeile=8B 

5218 FOR q=1 TO z 

5228 IF mitl=8 THEN GOTO 5288 

5238 CLS 

5248 GOSUB 8688 

5258 FOR ml=1 TO 12988 

5268 NEXT ml 

5288 PRINT #8,q; TAB(9)pn$(g) ;TAB( 48 
)ort$(q); TAB( 48) filn$( g) ;TAB( 64) lae 

$( q) ; TAB( 72) bem$( q) 

5298 NEXT q 

5388 PRINT #8:PRINT #8, "Dateibezeic 
hnung :"”;dat$ 

5318 PRINT #8,CHR$( 12); 

5328 CLS:LOCATE 25, 12:PRINT "Liste 

nochmals drucken ?7":PRINT CHR$( 7) 

5338 CALL &BB18:IF INKEY(45)=@8 THEN 
CLS:G0OTO 5178 

5348 GOTO 2998 

5998 PRINT #1,CHR$( 24) ;" 

Programmliste drucke 


n ’ 


CHA$( 24) ; : RETURN 
8688 LOCATE 28,zeile:PRINT"Programm 
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name: ";pn$(g) 


8618 LOCATE 28, zeile+1:PRINT"Disk/K 


ass/Nr: ";ort$(g) 


8628 LOCATE 28, zeile+2:PRINT"Startf 


ile n 


";filn$(gq) 


8638 LOCATE 28, zeile+3:PRINT"Laenge 


: ";lae$(gqg) 


8648 LOCATE 28, zeile+4:PRINT"Bemerk 


ungen : ";bem$(g) 


8658 LOCATE 28, zeile+6:PRINT"Datens 


atz Nr: "”;q 
8668 RETURN 


einstimmen. Denn sonst 
besteht die Gefahr, daß 
Ihr Drucker nur Unsinn 

roduziert. 

och nun zum Listing 
in dieser Folge. Nach 
dem Beschreiben der Sta- 
tuszeile in 5010 wird in 
der Zeile 5020 der Disket- 
teninhalt vorgeblendet 
und danach abgefragt, 
welche Datei ausgedruckt 
werden soll. Aber das 
dürfte Ihnen ja auf Grund 
der letzten Folge nun klar 
sein und braucht hier nun 
nicht mehr weiter erläu- 
tert werden. 
In den Zeilen 5080 und 
5090 wird auf dem Bild- 
schirm nun abgefragt, ob 
Ihr Drucker betriebsbe- 
reit ist. Denn die Frage 
“Drucker on-line“ bedeu- 
tet nichts anderes, ob Ihr 
Drucker eingeschaltet 
und klar zum Drucken ist. 
Die Zeilen 5100, 5110 
und 5120 sind Ihnen eben- 
falls schon bekannt. Dort 
wird lediglich eine Ja/ 
Nein-Abfrage durchge- 
führt. 
In 5130 besteht jetzt die 
Möglichkeit, die Daten- 
sätze, die auf dem Pa- 
pier durch den Drucker 
ausgegeben werden, zu- 
sätzlich noch auf dem 
Bildschirm mitzulesen. 
Die Variable mitl wird 
erst auf Null gesetzt 
(mitl=0). Nach dem War- 
ten auf Tastendruck 
(call &bb18) wird nun, 
wenn die Taste “J‘“ ge- 
drückt wird, die Variable 
mitl auf Eins gesetzt. 
Diese Variable wird in 
den nachfolgenden Zeilen 
weiterbenutzt. 
In den nächsten Zeilen 
kommen jetzt einige Be- 
fehle, die Ihnen neu sein 


werden. Deshalb werden 
wir uns sie etwas genauer 
ansehen. 

DIE ERSTEN STEUER- 
ZEICHEN WERDEN 
GESENDET 


In Zeile 5140 steht folgen- 
der Befehl: Print #8, 
chr$(27);*C“ ;chr$(72); 
Dazu ist folgendes zu sa- 
gen: Das Zeichen #8 be- 
iehlt dem CPC, das nach- 
folgende zum Drucker 
zu senden. Die Folge chr$ 
(27) teilt dem Drucker 
mit, die nachfolgende 
Sequenz nicht zu Papier 
zu bringen, sondern als 
Steuerzeichen zu betrach- 
ten. Das große C in „‚Gän- 
sefüßchen‘, verbunden 
mit dem Befehl chr$(72), 
sagt dem Drucker, daß 
die Papierlänge 72 Zeilen 
pro Blatt beträgt. Dies 
entspricht dem 12-Zoll- 
Papier. Falls Sie anderes 
Papierformat benutzen, 
müssen Sie die entspre- 
chende Papierlänge in die- 
ser Zeile entsprechend 
eingeben. 
In der Zeile 5150 wird 
durch die Befehlsfolge 
dem Drucker befohlen, 
die letzten 8 Zeilen (siehe 
letzte Zahl in der Klam- 
mer) pro Blatt zu über- 
springen und nicht zu 
bedrucken. Dies wird 
auch als Perforationsüber- 
sprung bezeichnet. 
Die Zeile 5160 schaltet 
den Drucker auf Schmal- 
schrift um, das heißt, das 
der Drucker pro Druck- 
zeile 132 Zeichen druk- 
ken kann. 
Denn mit der normalen 
Druckbreite von 80 Zei- 
chen/Zeile können wir 
unsere Datensätze sonst 
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nicht vollständig in einer 
Zeile zu Papier bringen. 


DIE DATENSÄTZE 
WERDEN 
AUSGEDRUCKT 


In der Zeile 5170 werden 
die ersten Zeichen aus- 
gedruckt. Zuerst wird mit 
dem Befehl string$(132, 
““) das Zeichen (String) 
“ 132mal zu Papier 
gebracht. 

Die Zeile 5180 schreibt 
uns jetzt die Kopfzeile 
unserer Liste. Mit dem 
TAB-Befehl positionieren 
wir den Druckkopf unse- 
res Druckers auf die in 
den Klammern angege- 
benen Spaltenwerte. Das 
Semikolon hinter den ein- 
zelnen Befehlen ist sehr 
wichtig und sollte von 
Ihnen beim Abtippen 
nicht verändert werden. 
Denn dadurch wird ein 
Zeilenvorschub unter- 
drückt und der Inhalt 

der gesamten Zeile 5180 
wird dann auch tatsäch- 
lich in einer Druckzeile 
zu Papier gebracht. 

In der Zeile 5190 wird die 
Variable mit! weiterver- 
arbeitet. Ist sie gleich Null, 
so wird der Bildschirm ge- 
löscht und die Meldung 
“Liste wird ausgedruckt“ 
auf dem Bildschirm ausge- 
geben. 

Die Zeilen 5120 bis 5290 
stellen die Schleife für den 
Ausdruck unserer Liste 
dar. Als Laufvariable 
wurde hier ‘q‘ gewählt. 

‘z‘ stellt die Zahl der Da- 
tensätze dar. 

Wird keine gleichzeitige 
Bildschirmausgabe ge- 
wünscht, so trifft die Be- 
dingung in 5220 zu, die 
Zeilen 5230 bis 5260 
übersprungen und in Zeile 
5280 werden die Daten- 
sätze ausgedruckt. Wird 
jedoch die Bildschirmaus- 
gabe zusätzlich gewünscht, 
so wird in 5240 die Sub- 
routine ab 8600 ange- 
sprungen und jeder Daten- 
satz auch auf dem Schirm 
dargestellt. 

Die Subroutine ab 8600 
braucht nicht weiter be- 
trachtet werden, da dürf- 
te alles klar sein. Das ein- 
zige Neue in diesen Zei- 
len ist lediglich, daß der 
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ARE 


ET 
% 


T 


Br 


Locate-Befehl nicht zwei 
reale Zahlen enthält, son- 
dern nur eine. Die andere 
Zahl wird durch eine 
Variable dargestellt. Der 
Grund dafür liegt darin, 
daß dieses Unterpro- 
gramm noch von anderen 
Zeilen angesprungen wer- 
den soll, dann jedoch an- 
dere Zeilen benutzt wer- 
den sollen. Diese Art der 
Programmierung ist im- 
mer dann günstig, wenn 
zwar die gleichen Befeh- 
le benutzt werden, aber 
die Bildschirmausga- 
ben an andere Stellen 

laziert werden sollen. 

ür unseren Fall wurde da- 
her die Variable ‘zeile‘ in 
der Programmzeile 5200 
auf acht gesetzt. Wird 
diese Routine dann von 
anderen Programmzeilen 
angesprungen, so kann 
durch ein anderes Set- 
zen der ‘zeile‘-Variablen 
eine andere Bildschirmaus- 
gabe gewählt werden. 
Nach der Rückkehr aus 
dem Unterprogramm folgt 
dann in 5250 und 5260 
lediglich eine Warteschlei- 
fe, damit Sie die Bild- 
schirmausgabe auch tat- 
sächlich mitlesen können. 
Denn sonst würden die 
Datensätze immer nur 
kurz auf dem Schirm er- 
scheinen und Sie hätten 
Schwierigkeiten beim 
Mitlesen. Diese Warte- 
schleife ist so bemessen 
(nämlich 1,2 Sekunden), 
daß die Druckausgabe da- 
durch nicht verlangsamt 
wird. Da die Druckaus- 
gabe sowieso wesentlich 
langsamer ist als die Bild- 
schirmausgabe, ist der 
Drucker nicht durch die- 
se Warteschleife in seiner 
Arbeitsgeschwindigkeit 
behindert. Dies gilt aller- 
dings nur, wenn Sie einen 
Drucker haben, der die 
gesendeten Zeichen zwi- 
schenspeichern kann. Al- 
so zum Beispiel einen 
DMP 2000. Wenn Sie ei- 
nen Drucker ohne Zwi- 
schenspeicher benutzen, 
so wartet allerdings auch 
der Drucker auf das näch- 
ste Zeichen und durch 
diese Warteschleife wird 
dann auch der Drucker 
verlangsamt. 
Nach dem alle Datensät- 


ze gedruckt sind, wird 
nach einer Leerzeile noch 
die Dateibezeichnung 
mitausgedruckt. Dies ist 
ganz praktisch, denn 
dann wissen Sie aus dem 
Ausdruck, welche Datei 
Sie da zu Papier gebracht 
haben. 


AUTOMATISCHER 
PAPIERVORSCHUB 


In 5310 wird durch den 
Befehl chr$(12) das Pa- 
pier bis zum Beginn des 
nächsten Blattes vorge- 
schoben. Dadurch brau- 
chen Sie, wenn Sie in 
Zeile 5320 einen weite- 
ren Ausdruck der glei- 
chen Liste wünschen, 
nicht erst das Papier mit 
dem Handrad am Druk- 
ker vorwärtszudrehen. 
Dies macht der Drucker 
dann automatisch. 
Sie sehen also, was man 
mit den Druckersteuer- 
zeichen alles so machen 
kann. In diesem Listing 
haben wir allerdings nur 
einen ganz kleinen Teil 
der Steuerzeichen ver- 
wendet. Wenn Sie es bis- 
her noch nicht getan ha- 
ben, empfehlen wir Ih- 
nen, sich mit Ihrem Druk- 
ker in einer ruhigen Stun- 
de grundsätzlich einmal 
zu befassen und ruhig ein 
wenig zu experimentieren, 
denn so lernen Sie sicher 
am meisten und Sie wer- 
den sicherer im Umgang 
mit Ihrem Drucker. 
Noch ein Wort, wenn Sie 
einen anderen Drucker 
haben. Sie sollten in die- 
sem Fall die Steuerzei- 
chen überprüfen, die in 
dem Handbuch Ihres 
Druckers aufgelistet sind. 
Wenn Sie aber überhaupt 
keinen Drucker haben, 
so brauchen Sie dieses 
Listing gar nicht erst ab- 
zutippen. Sie müßten 
dann aber das Hauptmenü 
anpassen. 
Auch diesmal wird das bis- 
herige Gesamtlisting wie- 
der in unserer Softbox 
enthalten sein. Aber 
trotzdem empfehlen wir 
Ihnen, das Listing durch- 
zuarbeiten, denn dies soll 
Sie an das Programmie- 
ren in Basic heranführen. 
(JE) 


TIPS & TRICKS 


UMSCHALTBARE 
DISC-KAPAZITÄT 


Beim Schneider-PC kann 
es ebenfalls (in beiden 
Modi) als Laufwerk ein- 
gesetzt werden. Im 2*40 
Spuren-Modus arbeitet 
es wie die sonst auch in 
den PC eingebauten Lauf- 
werke. Im 2*80 Spur- 
Modus kann es als Zweit- 
laufwerk mit der gegen- 
über den normalen Lauf- 
werken doppelten Kapa- 
zität aufwarten (eine ein- 
fache softwaremäßige 
Anpassung ist erforder- 
lich). Außerdem hat das 
Laufwerk selbst auch 
noch die Möglichkeit, 
auf 1,6 MByte unforma- 
tierte Kapazität geschal- 
tet zu werden (vor allem 
für AT-Besitzer inter- 
essant). Mit dem Lauf- 
werk ist ein CPC-Besitzer 
also auch für spätere 
Computer gerüstet. 


DER UMBAU 


Doch nun zur Modifika- 
tion, die bei uns in der 
Redaktion durchgeführt 
und überprüft wurde. 

Da wir vermeiden wollen, 
daß ‚elektronische Links- 
füßer‘‘ das Laufwerk be- 
schädigen, weisen wir aus- 
drücklich darauf hin, daß 
wirklich nur technisch 
Versierte diesen Umbau 
durchführen sollten. 
Außerdem könnte es 
durchaus sein, daß bei 
diesem Laufwerk auch ein- 
mal eine andere Elektro- 
nikplatine eingesetzt wer- 
den muß und deshalb ist 
unsere Mitteilung mit. 
Vorbehalt zu betrachten. 
Außer einem heißen Löt- 
kolben und dem perfek- 
ten Umgang mit diesem 
wird nur ein einfacher 
Schalter und zwei Stück- 
chen Litze benötigt. 
Zunächst ist der Wider- 
stand R19 einseitig aus- 
zulöten. An dessen nun 
freies Ende wird ein 
Anschlußdraht angelö- 
tet. Das andere Ende 
dieses Drahtes wieder- 
um muß zum Schalter 


Von der Firma FSE, die unter anderem die 
Programme DISKPARA und MS-COPY anbietet, be- 
kamen wir den Hinweis, wie das (auch von FSE 
angebotene) Laufwerk TEAC FD-55GFV-17-U derart 
modifiziert werden kann, daß sowohl ein Betrieb mit 
40, als auch mit 80 Spuren pro Diskettenseite möglich 
ist. D.h., dieses Laufwerk ist dann so schaltbar, 
daß es sich am CPC so verhält, wie ein normales 
3-Zoll-Zweitlaufwerk. Die Kostenersparnis durch Ein- 
satz der weitaus preiswerteren 5,25-Zoll-Disketten 
gegenüber den 3-Zoll-Disketten kann sich — je nach 
Diskettenverbrauch — äußerst positiv auf den Geld- 
beutel auswirken. Durch Umschalten auf 80 Spuren 
(Normalmodus bei diesem Laufwerk) kann es dann 
z.B. mittels des Programmes DISKPARA bis zu 
840 KB Daten formatieren, schreiben und lesen. 
Auch der Einsatz in Verbindung mit dem Vortex-X- 


Das Foto zeigt die bei uns 
durchgeführte Modifikation 
zur Umschaltung zwischen 
40 und 80 Spuren 


geführt werden. Vom 
Schalter aus muß der 
zweite Draht dann an die 
Stelle gelötet werden, 

in der sich das Anschluß- 
beinchen des Widerstan- 
des vorher befand. Das ist 
alles. Ist der Schalter 
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Modul ist dann möglich. 


angeschlossen, dann ste- 


hen 80 Tracks zur Ver- 
fügung, ist er offen, dann 
40 Tracks. In der Schal- 
terstellung 40 Tracks 
arbeitet das Laufwerk 
dann mit „Double Step“. 
Unser Bild zeigt den Be- 
sitzern dieses Laufwerks, 
wo sich R19 befindet. 
Die beiden nach links ab- 
gehenden Drähte führen 
zum Umschalter. Viel- 
leicht hat der Hersteller 
sogar irgendwo auf der 
Platine zwei Lötpunkte 


- speziell für eine derartige 


Modifikation vorgesehen, 
um den Umbau leichter 
zu gestalten, hierüber ist 
uns aber leider nichts 
bekannt. 

LM 


Wer seinen CPC schon ei- 
ne Weile hat und sich in 
Basic auskennt, kommt 
irgendwann einmal an 
den Punkt, wo er sich 
fragt: Wie geht das ei- 
gentlich mit der Maschi- 
nensprache? Um denen 
den Einstieg in die Pro- 
grammierung des Z8O 
zu erleichtern, ist dieses 
Buch geschrieben wor- 
den. 

Und tatsächlich: Wenn 
man das Buch, erschienen 
im Data Becker Verlag, 
durchliest und wirklich 
Kapitel für Kapitel durch- 
arbeitet, hat man den 
Einstieg in die Maschi- 
nensprache erlernt. Man 
sollte sich aber davor hü- 
ten zu glauben, man kön- 
ne den Z80 dann wirklich 
perfekt programmieren. 
Dies stellt sich recht 
schnell als Irrtum heraus. 
Aber der Einstieg ist ge- 
schafft und man kann 
sich weiter mit der Ma- 
schinensprache beschäfti- 
gen und ständig dazu- 
lernen. 


SCHNELLE EINFÜH- 
RUNG IN DIE 
MASCHINENSPRACHE 


Manches ist vielleicht nicht 
gleich beim ersten Durch- 
lesen verständlich. Macht 
nichts, dann wird das Ka- 
pitel eben nochmals ge- 
lesen und durchgearbeitet, 
spätestens dann ist dem 
interessierten Leser der 
Inhalt des jeweiligen Ab- 
schnittes klar geworden. 
Und nicht vergessen: 
Nicht nur durchlesen, son- 
dern durcharbeiten. Dazu 
gehört immer wieder, 
daßman die kleinen Bei- 
spiele und Routinen, 
aber auch die dann in den 
späteren Kapiteln um- 
fangreicher werdenden 
Programme, eingibt und 
ausprobiert. So lernt 

man Schritt für Schritt 
und das, was man selbst 
eingegeben hat (und viel- 
leicht dabei Fehler ge- 
macht hat), bleibt besser 
im Gedächtnis haften, 

als das, was man nur ge- 
lesen hat. 

Das Buch setzt lediglich 
Basic voraus und führt 
den Leser systematisch 
in die „Geheimnisse“ des 
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Z80, die bald keine mehr die im Buch behandelt 
sind, hinein. Alle drei werden, der „Maxam“- 
CPC-Typen, also 464, Assembler in Eprom- 
664 und 6128 werden in Version .zur Verfügung, 
der mir vorliegenden zwei- aber auch wer diesen 
ten Ausgabe (wichtig! nicht hat, braucht nicht 
Die erste Ausgabe bein- zu verzweifeln. Die Pro- 
haltet nur den 464!) be- gramme sind alle auch 
handelt und die entspre- durch Basic-Lader lauf- 
chenden Routinen des fähig. Und damit sollten 
ROM je nach Typ berück- Sie es als Z80-Anfänger 
sichtigt. auch erst einmal belas- 
Die beiden Autoren Hol- sen. Denn die Ausgabe 
ger Dullin und Hardy für einen Eprom-Assem- 
Straßenburg haben in bler sollten Sie solange 
ihrem Buch eine klare zurückstellen, bis Sie 
Linie eingehalten. Nach Spaß an der Maschinen- 
der Einführung wird auf sprache gefunden haben. 
dem jeweils vorhergehen- Zumal in dem vorliegen- 
den Kapitel aufgebaut und den Buch auch ein 

so der Leser schnell Assembler-Programm in 
aber verständlich, in die Basic abgedruckt ist. 
Geheimnisse der Maschi- Und fürs Lernen tut 
nensprache eingeführt. es dieses erst einmal. 
Mir stand zwar beim Aus- Sicher, für das richtige 
probieren der Programme Arbeiten mit dem Z80 
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ist ein Eprom besser und 
auch wesentlich schnel- 
ler, aber fürs Lernen nicht 
unbedingt erforderlich. 
Bevor es zum richtigen 
Programmschreiben in 
Maschinensprache geht, 
stellen die Autoren jeden 
Befehl einzeln vor und 
geben immer wieder Hin- 
weise und Tips, wie die- 
ser einzusetzen und wann 
dieser anzuwenden ist. 
Zwischendrin wird der 
Leser aber auch aufgefor- 
dert, selbst eine Lösungs- 
möglichkeit zu erarbei- 
ten. Und die eigene Lö- 
sung kann dann mit dem 
Lösungsweg der Autoren 
verglichen werden. So 
kann man dann anhand 
der Vergleiche der eige- 
nen und der Autoren-Lö- 
sung schnell lernen. Und 
das ist ja der Sinn dieses 
Buches. 


EMPFEHLUNG: 
RODNAY ZAKS ALS 
BEGLEITMATERIAL 


Die einzelnen Befehle 
werden allerdings nur so- 
weit erläutert, wie sie 

der Programmierer 
braucht. Was bei der Be- 
fehlsabarbeitung im In- 
nern des Z80 genau pas- 
siert, wird kaum beschrie- 
ben, ist ja aber auch wohl 
nicht das Ziel der Auto- 
ren. Wer das dann noch 
wissen will, kann ja im 
“Zaks“ nachlesen. 

Ein wenig mager ist im 
Anhang die Auflistung 
einiger Systemroutinen 
ausgefallen. Aber für den 
Anfang sicher ausrei- 
chend. Wenn man später 
wirklich ernsthaft in 
Maschinensprache pro- 
grammieren will, kommt 
man ja sowieso nicht um 
das Firmware-Handbuch 
herum. 

Um so ausführlicher sind 
die Befehlslisten des Z80 
abgedruckt. Und zwar die 
Originallisten der Firma 
Zilog. Als Anfänger 
braucht es zwar seine Zeit, 
bis man diese Listen 
richtig lesen kann, aber 
nach einiger Übung soll- 
te jeder dann dazu in der 
Lage sein. Diese Listen 
kann man auch später 
immer wieder als Nach- 
schlagewerk benutzen. 


ee ———————— 


TEST 


STARWRITER PC: 
EINER FÜR ALLES? 


Für alle IBM-kompatiblen PCs legte die Firma Star-Division ein multifunk- 
tionales Textprogramm vor, welches endlich einmal alle Anwenderwünsche 
befriedigen soll. Der letzte Anstoß für ein Textprogramm ging wohl vom 
Schneider PC 1512 aus, mit dem der MS-DOS Rechner Einzug in die Haus- 


halte und in die kleineren Betriebe gehalten hat. 


Für den Star Writer PC wurde zwar 
nach einem Einstiegsangebot der 
Preis auf nunmehr DM 389 ,— fest- 
gelegt. Doch selbst damit dürfte 
sich das Programm auf dem Markt 
behaupten. Gegenüber der Konkur- 
renz hat der „Alleskönner“ einiges 
zu bieten, macht aber auch Ab- 
striche. Die Leistungsbeschreibung 
hört sich ausgesprochen gut an. 
Neben einr Wordstar-ähnlichen 
Textverarbeitung gibt es ein Zei- 
chenprogramm, ein DFÜ-Programm 
und eine kleine Adressdatei. Wir ha- 
ben uns für diesen Test auf die Text- 
verarbeitung und das Zeichenpro- 
gramm konzentriert, eine Kombina- 
tin, die den Kunden wohl am mei- 
sten anspricht. 


ORIENTIERT AN WORDSTAR 


ABER MIT EIGENHEITEN 


Geliefert wird die komplette 
Software auf 3 Disketten in einem 
stabilen Schuber. Das dazugehörige 
Handbuch verspricht zumindest 
vom Umfang her ausreichende Er- 
klärungen. Die konkreten Hardwa- 
revoraussetzungen sind mit einem 
IBM PC, XT, AT mit Monochrom- 
bzw. Farbgrafikkarte oder einem 
entsprechenden Kompatiblen erfüllt. 
Eine Programmversion, die mit der 
Hercules Grafikkarte zusammenar- 
beitet, ist seit kurzem im Handel. 
Der benötigte Speicherplatz liegt 
bei 256 KB RAM. Das Softwaresy- 
stem funktioniert zwar auch bei 
einem Laufwerk, zwei (oder Fest- 
platte) sind zur Vermäidung häufi- 
ger Diskettenwechsel allerdings eher 
geeignet. Eine Maus wird nicht un- 
bedingt verlangt (auch ein Zeichen- 
programm kann ausschließlich über 
die Cursortasten gesteuert werden). 

Maussteuerung und Schneider PC 
1512 — all dies läßt natürlich sofort 
an GEM denken. Doch gerade mit 
dem Desktop arbeitet das Pro- 


grammpaket nicht zusammen, es ist 
einzig unter DOS aufrufbar. 

Das Hauptmenü wird mit WRI- 
TER eingeladen und stellt seine 
Programmteile in einer Grafik vor. 
Die Icons sind sehr detailreich und 
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werden zumindest in den ersten 
Arbeitssitzungen faszinieren. Sollte 
nicht innerhalb einer bestimmten 
Zeit eine Auswahl getroffen wer- 
den, dann erscheint statt der Hand 
eines Ertrinkenden (was als Symbol 
für „Hilfe“ gilt) ein Textmenü. Die 
Bestimmung des Programmteils er- 
folgt mit dem Kennbuchstaben 
oder eben mit einem „Mausklick“. 

Die Textverarbeitung könnte den 
Beinamen ,‚Benutzerfreundliches 


' i Mi 1 
ET Su na 


Wordstar“ tragen. Fast alle Befehle 
sind mit dem Klassiker der Text- 
programme identisch. Gegenüber 
dem „Oldie“ hat Star-Writer jedoch 
noch einiges mehr zu bieten. Da 
wäre zuerst einmal eine Menülei- 


ste, ähnlich denen der Desktop- 
Programme. Ein Druck auf die 
Maustaste läßt das darunterliegende 
Submenü ausrollen und die Aus- 
wahl kann wiederum per Mausta- 
ste getroffen werden. Allzulanges 
Zögern führt in den meisten Fällen 
zu einer Einblendung der Hilfstex- 
te. Der Zeitpunkt hierzu kann je- 
doch in einem Installationsmenü 


festgelegt werden. Auch können ei- 
nige der Hilfstexte geändert werden. 


im 
| 


Bedienerfreundlichkeit gibt es be- 
reits beim Einlesen der Texte. Der 
komplette Pfadname läßt sich ange- 
ben und auf Wunsch erscheint das 
Directory auf dem Bildschirm. Wird 
das Textfile nicht gefunden, geht 
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Star Writer (nach Rückfrage) von 
einer neuen Datei aus und gibt die 
‘Wahl zwischen Dokument- und AS- 
CII-Modus frei. Wegen des Vor- 
bildes existiert eigens eine Option, 
die die Umwandlung von Wordstar- 
Dateien in ein Dokumentfile von 
Starwriter erlaubt. Die Ähnlichkeit 
zwischen den beiden geht jedoch 
noch weiter: Die Control-Befehle, 
die schon manchen Wordstar-An- 
wender zur Verzweiflung gebracht 
haben, lassen sich auch hier anwen- 
den. Diesmal handelt es sich jedoch 
um eine freiwillige Bedienungsmög- 
lichkeit. Selbst wenn man nicht die 
Maus verwendet, steht einem mit 
der Funktionstaste 10 die gesamte 
Menüzeile zur Verfügung, in der mit 
den Cursortasten die entsprechende 
Option ausgewählt werden kann. 


TEXTMENGE VOM ARBEITS- 
SPEICHER BEGRENZT 


Bei soviel Ähnlichkeit sollte man 
sich auf die zusätzlichen Eigen- 
schaften konzentrieren, die Word- 
Star teilweise erst in neueren Ver- 
sionen aufzuweisen hat. Da ist zu- 
nächst aber auch ein kleiner Nach- 
teil festzustellen. Die Datenmenge 
wird vom frei verfügbaren Arbeits- 
speicher begrenzt, denn Star-Writer 
behält den ganzen Text „im Kopf“. 
Bei einem Ausbau von 640 KByte 
können zwar ordentliche 120 Text- 
seiten geschrieben werden, doch 
sollte man bei geringerem Arbeits- 
speicher sicherheitshalber auf eine 
RAM-Disc verzichten, die ohnehin 
nicht genutzt wird. 

Positiver darf man die restlichen 
Optionen bewerten. Über Fenster- 
technik können 7 verschiedene Tex- 
te bearbeitet werden. Jedes der 
Files gilt dabei als eigenständiger 
Text, kann also einen abweichenden 
Pfadnamen besitzen und aus jedem 
Subdirectory geholt werden. Trotz- 
dem ist es möglich, Absätze zwi- 
schen den einzelnen Windows zu 
transferieren. 

Besonders einfach und auch ein- 
drucksvoll ist die Zusammenarbeit 
mit einer Adressverwaltung. Die 
‚„Mailmerge“-Funktion wurde hier 
sehr bedienungsfreundlich einge- 
baut. In Texten legt man die Platz- 
halter (Kreuzbefehle, z.B.: #NA- 
ME#) fest, die auch mit einer Alt- 


27 


Tastenkombination abrufbar sind. 
Bei einem Serienausdruck werden 
die Daten wie Name, Straße und 
Wohnort eingesetzt. Die zur Ver- 
fügung stehenden Adressen können 
natürlich nach bestimmten Gesichts- 
punkten herausgefiltert werden. 
Leider funktioniert hierbei der 
sonst so praktische Druck im Hin- 
tergrund nicht. Gerade bei diesen 
zeitraubenden Aktionen muß die 
weitere Arbeit mit dem Programm 
warten. 

Eine Kleinigkeit — an die man 
sich aber recht schnell gewöhnt 
hat — ist der Taschenrechner. Be- 
dauerlicherweise. hat man auf die 
Mausbedienung verzichtet und muß 
die Zahleneingaben über den Zeh- 
nerblock vornehmen, welcher in der 
Regel erst einmal auf NUM-LOCK 
umgestellt werden muß. Dafür han- 
delt es sich aber um ein recht lei- 
stungsfähiges „‚Gerät‘‘, mit dem sich 
dank eines Stapelspeichers gut um- 
gehen läßt. 


MAILMERGE-FUNKTION IST 
EINGEBAUT 


Das ganz große Plus der Text- 
verarbeitung kommt in Verbindung 
mit dem Zeichenprogramm zustan- 
de. Fertige Bilder können an jeder 
beliebigen Stelle des Textes einge- 
bunden werden. Dies geschieht mit 
dem Punktbefehl, der ja WordStar- 
Anwendern hinlänglich bekannt 
sein dürfte. Bei korrekter Eingabe 
treten keine Schwierigkeiten auf, 
doch der Star-Writer nimmt es sehr 
genau. Neben dem Grafikbefehl 
müssen Rand, die Breite und die 
Höhe festgelegt werden. Als Einheit 
dient dabei ein Zeichen bzw. eine 
Zeile. Die aufgeführte Zeichnung 
muß mit kompletten Pfadnamen 
vorliegen und auch auf die Exten- 
sion (PIC) darf man nicht verzich- 
ten. Sind die Parameter richtig, d.h. 
in Großschrift, wird ein grauer 
Block in dieser Größe plaziert. Die 
Formatierung des Textes um dieses 
Bild geschieht in der gewohnten 
Weise. 

Beim späteren Ausdruck stoppt 
die Routine und sucht nach der 
Grafik. Der Speicher wird also nicht 
schon bei der Texteingabe belastet. 
Wird das Bild nicht gefunden — et- 
wa durch einen Tippfehler beim 
Pfadnamen — bleibt nur die Mög- 
lichkeit, auf die Grafikeinbindung. 
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zu verzichten. Hier wäre es viel- 
leicht besser gewesen, eine Unter- 
routine einzubauen, die eine kor- 
rekte Eingabe auch nachträglich er- 
möglicht. Besonders auffallend ist 
ja auch der Zwang, die PIC-Exten- 
sion angeben zu müssen, obwohl 
diese im Zeichenprogramm auch 
selbständig hinzugefügt wird. Hier 
eine päpstliche Genauigkeit, dort 
anwenderfreundliche Hilfsbereit- 
schaft. 


GRAFIKEINBINDUNGEN IM 
TEXT 


Das Ergebnis versöhnt mit dieser 
Kritik. Sieben verschiedene Aus- 
druckformen sind möglich, um zum 
Beispiel eine Grafik in irgendeine 
Richtung zu strecken oder zu in- 
vertieren. Außerdem wird das vor- 
handene Bild der Ausdruckseite an- 
gepaßt. Eine DIN A4 Zeichnung 
kann also vollständig in den Text 
übernommen werden. 

Da wir uns auf die WordStar-ab- 
weichenden Optionen konzentriert 
haben, muß auch zu guter Letzt die 
Installationsroutine und hierbei be- 
sonders die SETUP-Datei erwähnt 
werden. Mit diesem File kann ein 
individuelles Programm abgesichert 
werden. Dabei sind Benutzer-, Pfad: 
namen, Cursorform, Farbeinstellun- 
gen, Hilfsstufe und Tastaturpuffer 
schon Selbstverständlichkeit. Ein 
großer Teil befaßt sich mit Layout- 
Einstellungen, Einstellungen zu 
Maus und natürlich den Druckerein- 
stellungen. Bei letzteren lassen sich 
neben dem Hauptdrucker noch 
zwei Ersatzgeräte definieren, so daß 
bei häufigem Wechsel des Printers 
nicht jedesmal die Installation geän- 
dert werden muß, sondern nur im 
Programm ein anderer Druckertrei- 
ber gewählt wird. 

Irgendwann kommt man in 
dieser SETUP-Datei auch zur Frage, 
ab wann Trennungsvorschläge ge- 
macht werden sollen. Damit liegt 
allerdings eine kleine Übertreibung 
vor. Ein korrekter Vorschlag nach 
grammatikalischen “Regeln wird 
nicht gemacht. Ist ein Wort zu lang, 
dann setzt Star-Writer PC den Tren- 
nungsstrich an das letztmögliche 
Zeichen und bittet um Bestätigung. 

Wenn man ein kurzes Fazit zie- 
hen will, bevor man sich die 
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Starwriter PC ist in den gebräuchlichsten 
Befehlen kompatibel zu Wordstar, bietet 
darüber hinaus aber noch den Vorteil der 
Maussteuerung. 


anderen Programmteile des Star- 
Writers anschaut, so kann man zu- 
frieden sein. In seiner Bediener- 
freundlichkeit für den Anfänger 
steht der Editor weit über Word- 
star. Die Leistungen bleiben insge- 
samt gesehen nicht dahinter zurück. 
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ausgeyahlt werden. 


n iSt 
rare. 
auch die sehr konfortahle 


Die Textkapazität ist zwar begrenzt, 
doch bei 512 KByte-RAM völllig 
ausreichend. Kleine Schwächen, wie 
etwa das regelwidrige Trennungsver- 
halten, werden durchaus positive 
Seiten — Grafikeinbindung und 
Fenstertechnik — egalisiert. 


ADRESSVERWALTUNG — 
HELFERSHELFER DER MAIL- 
MERGE ROUTINE 


Eine recht passable Dateiverwaltung 
steht dem Anwender in Star-Writer 
PC zur Verfügung. Sie ist nicht nur 
als praktische Gedächtnisstütze ge- 
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dacht, sondern dient als einziger 
Lieferant von Adressen für die Mail- 
merge-Funktion des Texteditors. 
Vor der ersten Anwendung sollte 
sich jedoch jeder über die Anzahl 
der zu erwartenden Daten im Kla- 
ren sein. In der SETUP-Datei muß 
dieser Wert eingestellt werden, 
damit es nicht irgendwann bei der 
Eingabe einer neuen Adresse heißt: 
„Datei belegt“. Logischer wäre es 
gewesen, diesen Parameter vor der 
Erstellung einer jeden neuen Datei 
abzufragen. Gerade weil mehrere 
Adreßdateien möglich sind — etwa 
geschäftlich und privat — kommt 
diesem Punkt doch etwas größere 
Bedeutung zu. 
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Im Gebrauch jedoch ist der Da- 
tenlieferant ohne Mängel, wenn 
man seine Erwartungen an den 
eigentlichen Zweck anpaßt (es han- 
delt sich hier schließlich nicht um 
dBase). Für jeden Namen stehen 
zwei Anredeformen zur Verfügung, 
die üblichen Adreßdaten (ein- 
schließlich Telefon und Telex) und 
schließlich mit „Gruppe“ und ein 
mit „Bemerkung“ tituliertes Daten- 
feld. Soweit die Eingabemöglichkei- 
ten, die sich wohl von selbst erklä- 
ren. 


ABWEICHENDE BEDIENER- 
FÜHRUNG 


Leider ging man bei Star-Division 
in der Programmierung für das Ge- 
samtpaket nicht konsequent genug 
vor. Für den Adreßteil hat man die 
Bedienerführung geändert und 
völlig auf die Maus verzichtet., Al- 
lerdings bleibt es bei den Pull Down 
Menüs, so daß zumindest von der 
Programmlogik her nicht umge- 
dacht werden muß. 

Die kleine Dateiverwaltung hat 
mehr zu bieten, als sie auf den er- 
sten Blick vermuten läßt. Neben 
den üblichen Suchoptionen gibt es 
auch eine Merker-Einrichtung, mit 
der ein Datensatz gefiltert werden 


“ kann. Mit dem Index kann zudem 


jenes Feld festgesetzt werden, nach 
dem das Programm alphabetisch 
sortiert. Für den Ausdruck aller 
Adressen gibt es 8 verschiedene 
Formen. Auch hier hat sich ein klei- 
ner Fehler eingeschlichen, denn ein 
Ausdruck kann nicht mehr gestoppt 
werden, es sei denn, es liegt ein 
Druckerfehler vor. 

Auch hier wieder ein kleines Fa- 
zit zum Programmteil: Die Adreß- 
verwaltung erweist sich über ihre 
Notwendigkeit heraus als einfach zu 
bedienende kleine Dateiverwaltung. 
Die geänderte Bedienerführung ist 
jedoch ärgerlich, zumal keine Not- 
wendigkeit dazu bestand. 


DAS ZEICHENPROGRAMM 
FÜR KÜNSTLER 


Neben der Textverarbeitung dürfte 
auch der Grafik-Editor auf reges 
Interesse stoßen. Lassen Sie sich 
von dem allzu verspielten Haupt- 
menü nicht abschrecken. Hier wird, 
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statt mit einr Menüzeile, mit Icons, 
kleinen Symbolbildern, gearbeitet. 
Diese Minigrafiken sind sehr phan- 
tasievoll gestaltet, was nicht immer 
zur Verständlichkeit beiträgt. Auch 
die Hilfsroutine (dargestellt durch 
einen Krankenwagen) bringt nicht 
immer die gewünschte Klarheit. 

Das Programm arbeitet nicht mit 
Vektorgrafik, sondern ist pixelorien- 
tiert. Dies kann man als schwerwie- 
genden Nachteil werten. Verschie- ' 
beroutinen sind nur dann einwand- 
frei auszuführen, wenn sich die Fi- 
guren nicht überdecken. Es ist nicht 
immer leicht, einen Bildteil mit 
dem Editor-Viereck so sauber 
einzugrenzen, daß ein anderes Teil 
nicht zerstört wird. 

Ansonsten bietet der Grafik-Edi- 
tor die üblichen Funktionen, die 
man von einem Programm der geho- 
benen Klasse erwarten kann. Neben 
den Optionen für Einzelpunkte, 
Striche, Strahlen und Freihand- 
zeichnen stehen auch geometrische 
Figuren zur Verfügung. Kreise (oder 
Ellipsen), Vierecke oder Vierecke 
mit abgerundeten Kanten können 
auf Wunsch mit Mustern gefüllt 
werden. Standardmäßi stehen 
einige Schraffuren bereit, jedoch 
kann man mit einem kleinen Unter- 
programm ein individuelles Design 
entwerfen. Diesses läßt sich abspei- 
chern und bei Bedarf neu einlesen. 


DREHEN NUR UM 90 GRAD 


Die entstandenen Grafiken lassen 
sich auf verschiedene Weise editie- 
ren. Für den einfachsten Fall steht 
ein kleiner Schwamm bereit, der 
kleinere Bildteil schnell löscht. 
Auch eine Routine zum Drehen 
und Spiegeln ist vorgesehen und ein 
abgegrenzter Bildbereich kann ver- 
schoben oder dupliziert werden. 
Die Funktion ‚Drehen‘ funktio- 
niert zwar in beide Richtungen, 
jedoch immer nur um 90 Grad. 
Eine feinere Einteilung wäre hier 
besser gewesen, wenn man sich 
schon nicht entschließen kann, die- 
sen Parameter völlig dem Anwender 
zu überlassen. Ein wenig knapp ist 
auch die Anzahl der Zeichensätze 
für die Texteingaben. Fünf verschie- 
dene Größen sind zwar völlig aus- 
reichend, doch nur zwei Schrift- 
arten lassen das Angebot etwas 
dürftig erscheinen. 


Einige Besonderheiten fallen je- 
doch positiv auf, etwa die Editier- 
möglichkeit der Pinselformen oder 
der Lupengröße. Sehr große Bilder 
können in mehrere Seiten aufge- 
teilt werden, von denen man immer 
nur eine — in der Größe des Bild- 
schirmes — bearbeitet. Die Verwal- 
tung des Gesamtbildes bei Aus- 
druck unterliegt dabei dem Pro- 
gramm. Es soll allerdings nicht ver- 
schwiegen werden, daß eine Grafik, 
die aus drei Seiten in der Höhe und 
drei in der Breite besteht, schon 
144 KByte des Speicherplatzes ein- 
nimmt. Solche Poster sind also 
nicht für den PC mit 256 KB Mini- 
malausstattung geeignet. 


KEIN CAD, SONDERN 
KÜNSTLER 


Wie im Menü angedeutet, ist der 
Editor mehr der künstlerischen 
Seele des Anwenders zugetan. Dia- 
gramme oder technische Zeichnun- 
gen sind recht schwer zu erstellen. 
Es fehlt hierzu ein Raster oder 
wenigstens ein Lineal, um maß- 
stabsgerecht arbeiten zu können. 

Dies ändert nichts am Fazit: Mit 
dem Programmteil für Grafik 
kommt Spaß in den Star Writer. 
Die Zeichnungen sind — insbeson- 
dere mit der Maus — schnell erstellt, 
und es gibt genügend Editiermög- 
lichkeiten, um ein optimales Ergeb- 
nis zu erzielen. Das Anfertigen 
kleinerer Diagramme ist mit einigen 
Mühen verbunden, aufwendigere 
Arbeiten dieser Art dürften nicht 
realisierbar sein. 


DFÜ-PROGRAMM - VERBIN- 
DUNG NACH "DRAUSSEN ” 


Nägel mit Köpfen machte Star-Di- 
vision mit dem DFÜ-Programm, 
welches das Gesamtpaket abrundet. 


Zwar ist bei privaten Anwendern 


eines PCs — und an solche dachte 
man beim Softwareverlag — die Da- 
tenfernübertragung noch nicht so 
weit verbreitet, aber was nicht ist, 
kann ja noch werden. 

Ähnlich dem Adreßverwaltungs- 
programm hat man hier auf über- 
flüssiges Beiwerk verzichtet, ohne 
deshalb grundsätzliche Leistungen 
zu vernachlässigen. Allerdings wur- 
de auch hier noch einmal die Menü- 
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führung geändert, wiederum ohne 
Mausbetrieb landet der Anwender 
diesmal direkt in der Menüzeile. 
Vor der ersten Benutzung sollte 
man kurz die Standardparameter 
überprüfen. Sie entsprechen jedoch 
alle der gebräuchlichsten Art der 
Datenfernübertragung, nämlich 300 
Baud, 8 Bits und keine Parität. 
Kommuniziert man häufig mit einer 
Mailbox, die nicht dieser Gruppe 
zuzurechnen ist, so kann man die 
anderen Daten bereits in einer eige- 
nen SETUP-Datei korrigieren, um 


zur Icon-Erklärung des Zeichen-Edi- 
tors sind Bildschirmabzüge oder Fo- 
tos abgedruckt. Dabei geht man sti- 
listisch noch auf die verschiedenen 
Programme ein. Den meisten Text 
bekommt dabei die Textverarbei- 
tung ab, während man sich beim 
Grafik-Editor fast nur auf eine Be- 
fehlsbeschreibung beschränkte. Im 
DFÜ-Teil findet sich sogar eine 
kleine Einführung zu diesem 
Thema, die dem Erstanwender si- 
cherlich genug Basiswissen vermit- 
telt. 


WordStar Starwriter WitchPen 


Prog. laden 
Text lad. 16 KB 


‚9 


lext suchen 


Blockop. 7 KB 


Die wichtigsten Daten der drei „großen“ 
Textverarbeitungen im Vergleich. 


sie nach dem Einlesen sofort zur 
Verfügung zu haben. 

Für den Beginn der Arbeit muß 
dann lediglich der Name der Sende- 
datei eingegeben werden oder der 
der ‚„Mitschreibedatei‘“, sofern man 
letzteres überhaupt protokollieren 
will. Es muß wohl nicht gesondert 
erwähnt werden, daß Textdateien 
aus dem Editor nur dann ver- 
schickt werden können, wenn sie 
im ASCII-Modus geschrieben wur- 
den. Bedauerlicherweise lassen sich 
die Steuerzeichen eines Dokumen- 
tes auch nicht mehr im DFÜ-Pro- 
gramm herausfiltern. Der Anwender 
muß sich also von vornherein im 
Klaren sein, welche Texte er einmal 
auf die ‚‚Reise‘ schickt. 


DAS HANDBUCH 
SEHR INFORMATIV UND 
AUSFÜHRLICH 


Bei einem solchen Softwarepaket 
ist das Handbuch ein wichtiger Be- 
standteil, welcher der Kritik unter- 
liegen muß. Beim Manual des Star 
Writer wurden jedoch kaum Fehler 
oder Unterlassungssünden begangen. 
Unterteilt zu den einzelnen Pro- 
grammen wird sehr erläuternd jede 
Option der Menüs besprochen. Wo 
es nötig ist, finden sich kleine Bei- 
spiele. Von der Tastaturbelegung bis 
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3,80 
4,66 
6,85 


‚76 
3,74 
4,47 
‚68 


8,17 
14,70 
6,78 
9,28 


Ausführliche Inhalts- und Stich- 
wortverzeichnisse lassen beim Nach- 
schlagen keine Probleme aufkom- 
men. Kurz und gut: Das Handbuch 
verdient die Note Eins. 


GESAMTURTEIL: 
SEHR EMPFEHLENSWERT 


Es ist natürlich schon eine merk- 
würdige Mischung von Anwender- 
programmen, die der Star Writer 
vorlegt. Normalerweise bindet man 
Textverarbeitung mit Datenbanken 
und Kalkulationsblättern zusam- 
men. Kommt dazu noch ein Pro- 
gramm für die Geschäftsgrafik, 
dann darf der Käufer mit einem 
Preis über tausend Mark rechnen. 
Bei Star-Division dachte man etwas 
mehr an die privaten Anwender 
unnd erfreulicherweise auch an de- 
ren schmaleren Geldbeutel. Die 
Textverarbeitung läßt keine 
Wünsche offen und das zweite we- 
sentliche Programm — der Grafik- 
teil — ist mehr zur künstlerischen 
Gestaltung geeignet. Die Adreßver- 
waltung erledigt zur Zufriedenheit 
die Arbeit des sonst gebräuchlichen 
Notizbuches und ist darüber hinaus 
auch bei der Mailmerge-Funktion 
nützlich. Leider fertigte man die 
Frage eines Kalkulationsteiles etwas 
schnöde mit einem Taschenrechner 
ab. 

Berücksichtigt man jedoch den 
Preis des Paketes, kann der Star 
Writer uneingeschränkt empfohlen 
werden. 


——————————————— nn ————————————————— 


Gleich vorweg mitgeteilt: 
Es ist überhaupt kein Pro- 
blem, zum Beispiel einen 
PC 1512 SD (SD steht 
für die Version mit einem 
Laufwerk — SD = Single 
Drive) mit einem zweiten 
Diskettenlaufwerk auszu- 
statten. 

Intern sind bereits die 


Anschlüsse vorhanden, 
wodurch ein Zusatzlauf- 
werk mit 40 Spuren 


(doppelseitig) nur einge- 
baut, angeschlossen und 
eingebunden werden 
muß. Damit hat es sich 
bereits, wenn das Lauf- 
werk die Standardan- 
schlüsse besitzt. Sind 
diese nicht vorhanden, 
dann muß durch entspre- 
chende Steckerwahl und 
durch deren richtige Bele- 
gung noch nachgearbeitet 
werden. Anders sieht es 
bei 80-Track-Laufwerken 
aus, denn werden diese in 
das System eingebaut, so 
arbeiten sie zwar, aber 
nur auf den ersten 40 
Spuren. Es muß also 
mehr getan werden. 


AUFBAU DER 
CONFIG-DATEI 


Um unter MSDOS mit 
einem 80-Track-Lauf- 
werk korrekt arbeiten zu 
können, muß lediglich 
die Datei CONFIG. SYS 
entsprechend angepaßt 
werden. Für DOS-Plus 
haben wir leider keine 
Lösung, da bei DOSPlus 
keine CONFIG. SYS be- 
nötigt wird. Hier aber die 
Lösung für MSDOS: 

In die Datei CONFIG. 
SYS, die normalerweise 
folgenden Inhalt hat: 
files = 20 
buffer = 5 
device = /msdos/ramdrive 

sys nvr 
country = 049 
muß z. B. zwischen devi- 
ce und country eingefügt 
werden: 


DRIVPARM = /D:01/ 
F:02 
Ist dies geschehen, 


Was dem CPC recht ist, soll dem Schneider PC 
billig sein. Unter diesem Gesichtspunkt habe ich 
nach meinen erfolgreichen Experimenten, zwei ver- 
schiedene, zusätzliche Laufwerke in Verbindung 
mit dem CPC zu betreiben, meine Bemühungen 
auf den PC ausgedehnt. 


Zweitlaufwerk am PC: Für 
den Anschluß ist alles 
vorhanden. 


dann werden bei der Ein- 
bindung des zweiten 
Laufwerkes die richtigen 
Parameter eingestellt. 

Die Einbindung des 
Laufwerkes kann bei- 
spielsweise von der Be- 


SERVICE sch 


ZWEIT-LAUF- 


WERK FÜR 
PC1512 


DaF Peg 2 


nutzeroberfläche 


GEM 
aus geschehen: Hierzu 
das bereits angezeigte 


Laufwerk A anklicken 
und dann den Menüpunkt 
Optionen auswählen. Im 
dann zu sehenden Aus- 
wahlmenü den Punkt der 
Laufwerksinstallation an- 
klicken. Nun muß nur 
noch Laufwerk A in B 
geändert und dann der 
Menüpunkt „installieren“ 
ausgewählt werden. Spei- 
chern Sie dann auch noch. 
DESKTOP ab, dann 
haben Sie alles getan, um 
Ihren PC mit einem zu- 
sätzlichen 80-Track-Lauf- 
werk betreiben zu kön- 
nen. Wenn Sie den PC das 
nächste Mal starten, 
können Sie auch mit dem 
neuen Laufwerk arbeiten. 
Zum Schluß noch eini- 


MEHRERE 
FORMATE 
MÖGLICH 


ge Angaben zu DRIVE- 
PARM. Hinter D muß die 
Laufwerksnummer ange- 
geben werden. 00 = Lauf- 
werk A, 01 Laufwerk B. 
Hinter F das Format. 
Laut Technischem Hand- 
buch sind folgende For- 
mate möglich: 
00 = 5,25 320/360 KB 
01 =5,25 1.2 MB 
02 = 720 KB 
03 = 8 Zoll Single Density 
04 = 8 Zoll Double 
Density 

05 = Harddisc 
06 = Tape Drive 
07 = other 

Viel Erfolg beim Ein- 
bau Ihrer Laufwerke. 
(LM) 


"FLÜCHTLINGE IN OSTASIEN 


Menschen in Not 
brauchen Hilfe: zuverlässig, 
schnell, wirksam. Die beiden 
kirchlichen Hilfswerke 
nehmen ihren Auftrag ernst. 
Deutscher Canıtasverhand. Konto 202, 
Postgiro Karlsruhe oder Banken 

und Sparkassen. 


1 Diakonısches Werk Konto 502, 
Postgıro Stuttgart oder Banken und 


Sparkassen, 
Kennwort „FLÜCHTLINGE 
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LISTING 


SOUNDMASTER 


Mit dem Programm ‚‚Sound-Master“‘ von Maurice 

Lion ist es nun endlich möglich, auf einfache Weise 
Musikstücke einzugeben und in Basic-Programme um- 
zuwandeln, die dann in eigene Programme eingebaut 
werden können. 

Nachdem das Listing — hoffentlich fehlerfrei — abge- 
tippt, weggesaved und anschließend gestartet wurde, 
erscheinen in der oberen Hälfte des Screens die Noten- 
linien. In der unteren Hälfte befindet sich links das 
Window für die Tonhüllkurve, direkt daneben das für 
die Lautstärke-Hüllkurve. Rechts sieht man die aktuel- 
le Oktave sowie die Anzeige, ob das Rauschen ein- 
oder ausgeschaltet ist. 

Das Programm ist menügesteuert und bietet eine Viel- 
zahl von Optionen: 


“ Noten <e>ditieren: 


Durch Druck auf die Taste “E“ gelangt man in den 
Eingabemodus. Zur Eingabe der gewünschten Note 
steuert man den Punkt mit Hilfe der Cursortasten auf 
die gewünschte Tonhöhe und gibt durch Druck der 
“G“-Taste ( ganze Note), “H‘““ (halbe), “V“ (viertel) 
oder “A“ (achtel) die Notenlänge ein. Um Pausen zu 
setzen, werden die Zahlen von 1 (ganze Note) bis 4 
(achtel Note) gedrückt. Soll eine Note um einen Halb- 


panBaig eng zunnäte ERSOF "T8Tnn song, .. 


ton erhöht werden, drückt man den Hochpfeil, worauf 
der Bildschirm heller aufleuchtet. Jede Note, die nun 
eingegeben wird, solange der Bildschirm heller ist, 
wird automatisch um einen halben Ton erhöht (#). 
Zum Erniedrigen einer Note muß die “-“ Taste ge- 
drückt werden, der Bildschirm wird nun nicht ganz 

so stark erhellt und die Noten werden erniedrigt (b). 
Beide Funktionen werden durch die Taste 0 wieder 
aufgehoben. Mit der Klammeraffen-Taste kann die zu- 
letzt eingegebene Note wieder gelöscht werden. 


Edit En<v> bzw. En<m>: 


Das Editieren der Env-Kurve läuft genauso ab, wie 
das der Ent-Kurve, weshalb hier beides mit einem- 
mal erläutert wird. Zuerst wird die gewünschte Kanal- 
nummer eingegeben (die Kurve O hat keinen Einfluß 
auf den Sound). Der Cursor, dargestellt durch den 
kleinen Punkt, wird mit den Cursor-Tasten bewegt. 
Mit der Return-Taste wird die augenblickliche Posi- 
tion festgehalten und weiterverarbeitet. Man sollte 
hier schon ein wenig experimentieren. Die Kurven 

6 — 9 sind im Programm bereits voreingestellt. 


<O>ptions: 


Hier kann ein Sound gespeichert, geladen oder ein 
Basic-Programm erstellt werden. 
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LISTING 


10 IRRE TEST SESESE SENSE SERIE EEE E 


20 ’* SOUNDMASTER * 
30 ’# VON * 
40 ’* MAURICE LION %* 
sn ’#* FUER = 
60 ’* SCHNEIDER AKTIV * 
70 ’* CPC 664/6128 je* 
BO 2 MRRRRRRREESERHHRRSEE NETTE 
90 : 

100 ° Variablen etc. initialisieren 


110 CLEAR:DEFINT a-z 

120 DIM nh( 300) ,n1( 300) ‚envtz( 15,5) 
‚envte( 15,5), stz( 15,5) 

130 DIM envvz( 15,5) ‚envve( 15,5) ,svz 

(15,5) ,,halb( 200) 

140 nx=30:ny=346:stp=1:high=346:go= 
135:ns=20 

150 n$( 1) =CHR$( 243) +CHRA$( 240) +CHR$( 

241) +CHR$( 242) 

160 n$( 2) =CHR$( 244) +CHR$( 245) +CHRA$( 

246) +CHR$( 247) 

170 n$=n$( 1) +n$( 2) 

180 ° Call Subroutines 

190 GOSUB 4370: ” Graphics 

200 GOSUB 3160: Define Windows 

210 GOSUB 3220: ”’ Define ENV/ENT 

220 GOSUB 3020: Print Texts 

230 GOSUB 2850: ”’ Menue 

240 CLS 

250 PRINT"#RHestsssestttt Are you shure 
2 RHHHRRSHRFIE" 

260 a$=UPPER$( INKEY$) :IF a$=""THEN 

260 


270 IF a$<>"Y"AND a$<>"J"THEN GOTO 

320 

280 CLS 

290 PRINT" ####RHaneeH Really ? 
SEEUENUEUERE" 


300 a$=UPPER$L INKEY$) :IF a$=""THEN 
260 

310 IF a$="Y"OR a$="J"THEN MODE. 1:N 
EW 

320 go=-135 

330 GOSUB 2400: ” 
zeichnen 

340 GOTO 200 

350 : 

360 END 

370 : 

380 ”° Routine <O>ptions 
390 CLS 
400 PRINT" 
e File" 
410 PRINT" 
ogram" 

420 PRINT" 


s 
430 e$=UPPER$( INKEY$) :IF e$=""THEN 


Noten/Notenlinien 


<L>oad File <S>av 
<C>reate BASIC-Pr 


<Q>uit Option 


440 e=INSTR("LSCQ"”,e$) 

450 IF e=0 THEN 500 

460 IF e=4 THEN RETURN 

470 ON e GOSUB 4170,3980, 3510 
480 GOTO 390 


490 ° Routine VI : Parameter <A>end 
ern 

500 CLS 

510 PRINT"<R> Rauschen on/off <#>/ 
<+> Oktave -/+" 

520 PRINT" <,>/<.> ENT -/+ </>/<\ 
> ENV -/+"” 

530 PRINT" <Q>uit Parameteraend 
erung" 


540 a$=UPPER$( INKEY$) :IF a$=""THEN 
540 


550 a=INSTAL"R:;,./\Q"”,a$) 

560 IF a=0O THEN 540 

570 IF a>3 AND a<B THEN f=-0:605UB 2 
170 

580 IF a=8 THEN RETURN 

590 IF a=6 AND envk>O THEN envk=env 
k-1 

600 IF a=7? AND envk<9 THEN envk=env 
k+1 


610 IF a=5 AND entk<9 THEN entk=ent 
k+1 


620 IF a=4 AND entk>O THEN entk=ent 
k-1 
630 IF a=2 AND oktave>-4 THEN oktav 


e=oktave-1 

640 IF a=-3 AND oktave<3 THEN oktave 
=oktave+1 

650 IF a=1 THEN rausch=-rausch XOR 1 
660 IF a>3 AND a<B THEN f-1:G05UB 2 
170 

670 LOCATE #1,1,1:PAINT#1,CHR$( 23) ; 
CHR$( 0); 

680 PEN 1:PLOT -1000,-1000, 1:6GO5SUB 

3020 

690 GOTO 540 

700 REM --- Routine V : 
d 

710 FOR e=1 T05 

720 lM(entk,e)=stz(entk,e) 

730 e(entk,e)=envte(entk,e) 

740 n(entk,e)=envtz(entk,e) 

750 NEXT 

760 e=entk:IF e=0 THEN 7BO 

770 ENT-e,l1(e,1),e(e,1),n(e,1),l(e, 
2) ,e(le,2),n(e,2),l(e,3),e(e,3),n(e, 
3),1(e,4),e(fe,4),n(e,4),l(le,5),e(e, 
5) ,n(e,5) 

780 FOR e=1 T0 5 

790 l(envk,e)=svz(envk,e) 

800 e(envk,e)=envve(envk,e) 

810 n[envk,e)=envvz(envk,e) 

820 NEXT 

830 e=-envk:IF e=D THEN 860 


<P>lay Soun 


840 ENV e,l(e,1),ele,1) ‚n(e,1),1(e,39 
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430 


LISTING 


2) ,e(e,2),n(e,2),l1(e,3),e(e,3),n(e, 
3),1(e,4),e(e,4),n(e,4),l(e,5),e(e, 
5),n(e,5) 

850 

860 FOR zaehl=-1 TO z 

870 freq=440#( 2°(oktave+( (nh( zaehl) 
-10)/12))) 

880 periode=ROUND( 62500/freg) 

890 IF nh( zaehl)=0 THEN periode=0 
900 SOUND 1,periode, 60-( 5*nl( zaehl) 


),15,envk,entk, rausch 
910 NEXT 


920 RETURN 

930 ° Routine IV : 
one 

940 ORIGIN 15, 130 
950 PLOT 0,0,1,1:ex=-D:ey=O:entx=0:e 
nty=0:stp=2 

960 GOSUB 990 

970 GOTO 1090 

980 ° Abfrage Cursortasten 

990 altex=-ex:altey=-ey 

1000 IF INKEY$=""THEN 1000 

1010 IF NOT INKEY(8)THEN ex=ex-stp 

1020 IF NOT INKEY(1)THEN ex=ex+tstp 

1030 IF NOT INKEY(2)THEN ey=ey-stp 

1040 IF NOT INKEY(O)THEN ey=ey+tstp 

1050 PLOT altex,altey,1,1 

1060 PLOT ex,ey,1,1 

1070 RETURN 

1080 ”° Anderen Tasten Abfragen 

1090 IF NOT INKEY( 18) THEN GOSUB 113 
0 

1100 IF NOT INKEY(67)THEN IF absc(e 
ntk)<6 THEN GOSUB 1210 

1110 IF NOT INKEY(67) THEN ORIGIN 0, 
0: RETURN 

1120 GOTO 960 

1130 ° Schritt-/Pausengroesse aende 
rn 

1140 IF absc(entk)<5 THEN MOVE entx 
‚enty:DAAW ex,ey,1,0 

1150 IF ex/stp-entx/stp<>envtz OR e 
y/stp-enty/stp<>envte THEN GOSUB 12 
10 


Edit Envlope <T> 


1160 envtz=ex/stp-entx/stp 

1170 envte=ey/stp-enty/stp 
stz=stz+1 

1190 entx=ex:enty=ey 

1200 RETURN 

1210 ° Neuen Abschnitt definieren 
1220 absc=absc(entk) 

1230 IF absc(entk)<6 THEN envtz(ent 
k,absc)=envtz ELSE RETURN 

1240 stz(entk,absc)=stz 

1250 envte(entk,absc) =envte 

1260 absc=absc+1 

1270 stz=0 

1280 envtz=entx/stp-ex/stp 

1290 envte=enty/stp-ey/stp 


1300 absc(entk) =absc:absc=0 

1310 RETURN 

1320 "Routine Edit Envlope <V>olume 
1330 ORIGIN 205, 130 

1340 PLOT 0,0,1,1:ex=0:ey=0:envx=0: 
envy=0:stp=1 

1350 GOSUB 990 

1360 IF NOT INKEY( 18) THEN GOSUB 140 
0 

1370 IF NOT INKEY(67) THEN IF absv(e 
nvk)<6 THEN GOSUB 1480 

1380 IF NOT INKEY( 67) THEN ORIGIN 0, 
0:RETURN 

1390 GOTO 1350 

1400 ° Schritt-/Pausengroesse umwan 
deln 

1410 IF absv(envk)<5 THEN MOVE envx 
‚envy:DRAW ex,ey,1,0 
1420 IF ex-envx<>envvz OR ey-envy<> 
envve THEN GOSUB 1480 

1430 envvz=ex-envx 

1440 envve=ey-envy 

1450 svz=svz+1 

1460 envx=ex:envy=ey 

1470 RETURN 

1480 ” Neuen Abschnitt definieren 
1490 absv=absv(envk) 

1500 IF absv<6 THEN envvz(envk,absv 
)=envvz ELSE absv-0:RETURN 

1510 envve(envk,absv)=envve 

1520 svz(envk,absv)=svz 

1530 absv=-absv+1 

1540 svz=0 

1550 envvz=envx-ex 

1560 envve=envy-ey 

1570 absv(envk) =absv:absv=0O 

1580 RETURN 

1590 ’Routine Noten <E>ditieren 
1600 x=nx:y=ny 

1610 t$="." 

1620 LOCATE#1,1,1:PRAINT#1,CHR$( 23) ; 
CHR$C 1); 

1630 GOSUB 2960 

1640 LOCATE#1,1,1:PRINT#1,CHRA$( 23) ; 
CHR$( 0); 

1650 ” Cursortasten abfragen 

1660 a$=INKEY$:a$=UPPER$( a$) : IF a$= 
""THEN 1650 

1670 IF a$=CHRA$( 240) THEN ny=ny+5:6G0 
SUB 2100 

1680 IF a$=CHR$( 241) THEN ny=ny-5:60 


'5UB 2100 


1690 IF a$="@"THEN GOSUB 1790:IF z> 
28 THEN x=30:nx=30 

1700 IF 3$="Q"THEN LOCATE#1,1,1:PRI 
NT#1,CHR$( 23) ;CHA$( 1) ; :GOSUB 2960:L 
OCATE#1,1,1:PRINT#1,CHA$( 23) ;CHA$( O 
) ; :RETUAN f 
1710 IF a$="""THEN flog-1:BORDER 26 
1720 IF a$-"-"THEN flag--1:BORDER 1 
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LISTING 


0 
1730 IF a$="O"THEN flag=-0:BORDER 0 
1740 a=INSTA( "GHVA1248”,a$) :IF a<>O 
THEN GOSUB 1870 

1750 GOSUB 2400 

1760 t$="." 

1770 : 

1780 GOTO 1640 

1790 ° Letzte Note loeschen 

1800 nl( z)=O:nh( z)=0O 

1810 z=z-1:mk=1 

1820 GOSUB 2430 

1830 IF nx>30 THEN nx=nx-ns ELSE nx 

=600-ns 

1840 LOCATE#1,1,1:PARINT#1,CHA$( 23) ; 

CHR$( 1); 

1850 LOCATE#1,1,1:PRINT#1,CHR$( 23) ; 

CHR$( 3); 

1860 RETURN 

1870 ° Note setzen 

1880 LOCATE#1,1,1:PRINT#1,CHR$( 23); 

CHR$( 1); 

1890 x=nx:y=ny 

1900 GOSUB 2960 

1910 LOCATE#1,1,1:PRINT#1,CHR$( 23) ; 

CHR$( 3) ; 

1920 z=z+1 

1930 nl( z)=VAL(MID$( "12481248" ,a, 1) 

) 
1940 
1950 
1960 
1970 


halb( z)=flag 

t$=MID$(n$,a, 1) 

GDOSUB 2960 

IF flag=--1 THEN t$=CHRA$( 254) 
1950 IF flag=1 THEN t$=CHR$( 255) 
1990 IF flag<>O THEN PLOT-1000,-100 
0,2:x=nx-10:y=ny:GOSUB 2960:PLOT-1DO 
00,-100, 1 

2000 e=z 

2010 GOSUB 2720 

2020 nh(z)=m:m=DO:e=0 

2030 IF VAL(a$)<>O THEN nh(z)=0O 
2040 nx=nx+tns:x=nx 

2050 t$="." 

2060 LOCATE#1,1,1:PRINT#1,CHR$( 23) ; 
CHR$C 1); 

2070 GOSUB 2960 

2080 IF nx>600 THEN GOSUB 2960:nx=3 
O:ny=246:x=nx:high=246:stufe=stufe+ 
I1:nsm=1:G0OSUB 2960 

2090 RETURN 

2100 REM --- Move Cursor 

2110 LOCATE#1,1,1:PRINT#1,CHR$( 23) ; 
CHR$( 1); 

2120 GOSUB 2960 

2130 x=nx:y=ny 

2140 GOSUB 2960 

2150 LOCATE#1,1,1:PRINT#1,CHR$( 23) ; 
CHR$( 0); 

2160 RETURN 

2170 ° Subroutine Draw ENV/ENT 


2180 kK1=entk:k2=envk 

2190 PLOT-1000,-1000, 1 

2200 ORIGIN 15, 130:MOVE 0,0:L0OCATE# 
1,1,1:PRINT#1,CHR$( 23) ;CHR$( 0); 
2210 x=0:y=0:stp=2 

2220 FOR e=0 T0 5 

2230 FOR v=1 TO stz(ABS(kK1),e) 


2240 x=x+(envtz(ABS(kK1),e)*stp) 
2250 y=y+t(envte( ABS(K1),e)*stp) 
2260 DRAW x,y,f 

2270 NEXT 

2280 NEXT 

2290 ORIGIN 205, 130:MOVE 0,0 


2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 


x=0:y=0:stp=1 

FOR e=0 TO 5 

FOR v=1 TO svz(ABS(K2),e) 

x=xtenvvz(ABS(k2),e) 

y=ytenvve(ABS(kK2),e) 

DRAW x,y,f 

NEXT 

NEXT 

2380 ORIGIN 0,0 

2390 RETURN 

2400 ° Noten und Notenlinien zeichn 

en 

2410 : 

2420 IF nsm=1 AND stufe>1 THEN GOTO 
2430 ELSE RETURN 

2430 CLS#3 

2440 go=21 

2450 GOSUB 4390 

2460 g=-z-2B 

2470 IF g<O THEN g=1 

2480 x=30-ns:high=346:: add=1 

2490 IF z>=2B THEN mk=0O 

2500 flag=0:BORDER O 

2510 FOR e=g TO z 

2520 x=x+tns 

2530 IF nh(e)=0 THEN 2570 

2540 IF nl(e)=1 THEN t$=CHR$( 243) EL 
SE IF nl(e)=2 THEN t$-CHRA$( 240) 
2550 IF nl(e)=4 THEN t$=CHA$L241)EL 
SE IF nl(e)-8 THEN t$=-CHRA$( 242) 
2560 GOTO 2590 

2570 IF nl(e)=1 THEN t$=CHRA$( 244) EL 
SE IF nl(e)=-2 THEN t$=CHR$( 245) 
2580 IF nl(e)=4 THEN t$=CHA$( 246) EL 
SE IF nl(e)=8 THEN t$=CHR$( 247) 
2590 LOCATE#1,1,1:PRINT#1,CHA$( 23); 
CHR$( 3); 

2600 GOSUB 2790: y=m#5+high 

2610 GOSUB 2960:IF halb(e)<>O THEN 
PLOT-1000,-1000,2 

2620 IF halb(e)=1 THEN x=x-10:t$=CH 
A$( 255) :G0OSUB 2960:x=x+10 

2630 IF halb(e)=-1 THEN x=x-10:t$>=C 
HA$( 254) :GOSUB 2960: x=x+10 

2640 IF halb(e)<>D THEN PLOT-1000,- 
1000, 1 

2650 IF x>600 THEN x=30-ns:high=246 


35 


LISTING 


3070 t$=STA$( envk) 


2660 NEXT : 
2670 add=1:LDCATE#1,1,1:PRINT#1I,CHR 
$( 23) ;CHR$( 0); 

2680 nsm=0:IF mk<>1 THEN high=-246 E 

LSE mk=0 

2690 ny=high 

2700 IF z>=28 THEN x=30:nx=30 

2710 RETURN 

2720 * Subroutine Umwandlung Cursor 

position in Notenhoehe 

2730 nh( z) =(ny-high) /S+1 

2740 m=nh( z) 

2750 IF m>1 THEN m=m+1:IF m>3 THEN 
m=m+1:IF m>6 THEN m=m+1:IF m>8B THEN 
m=m+1:IF m>10 THEN m=m+1 

2760 IF m>13 THEN m=m+1:IF m>15 THE 

N m=m+1:IF m>18 THEN m=m+1 

2770 m=m+flag 

2780 RETURN 

2790 

2800 m=nh( e) 

2810 IF halb(e)=1 THEN m=m+1:IF hal 

b(e)=-1 THEN m=m-1 

2820 IF m>O THEN m=m-1:IF m>1 THEN 

m=m-1:IF m>2 THEN m=m-1:IF m>4 THEN 
m=m-1:IF m>5 THEN m=m-1:IF m>6 THE 
N m=m-1:IF m>? THEN m=m-1:1I 

F m>9 THEN m=m-1 

2830 IF m>11 THEN m=m-1:IF m>14 THE 
N m=m-1:IF m>16 THEN m=m-1:IF m>19 
THEN m=m-1 

2840 RETURN 

2850 ’Subroutine Auswahlmenue I 
2860 CLS 

2870 PRINT" 
tieren" 

2880 PRINT" 

> <O>ptions" 

2890 PRINT"Parameter <A>endern <P>1 

ay Sound <Q>uit”; 

2900 e$=INKEY$:e$=UPPER$(e$) :IF e$= 
""THEN 2900 

2910 e=INSTR( "EVTPAOQ"”,e$) 

2920 IF e=0 THEN 2900 

2930 IF e=7 THEN RETURN 

2940 ON e GOSUB 1590, 1320, 930,700,4 
90,380 

2950 GOTO 2860 

2960 ° Soubroutine Locate + Print T 

ext 

2970 
2980 
2990 


Noten <E>di 


Edit EN<T> Edit EN<V 


TAG 

MOVE x,y 

PRINT t$; 

3000 TAGOFF 

3010 RETURN 

3020 ° Soubroutine Print Text 
3030 x=80:y=78 

3040 t$=S5TR$( entk) 

3050 GOSUB 2960 

3060 x=260:y=78 


3080 GOSUB 2960 
3090 x=400:y=169 


3100 t$=STRA$( oktave) 


3110 GOSUB 2960 
3120 x=406:y=120 
3130 t$="Rauschen 
N t$=t$+"off"ELSE 
3140 GOSUB 2960 
3150 RETURN 

3160 


":IF rausch=O0 THE 
t$=t$+" on" 


’Subroutine Define Windows 


3170 WINDOW#0,1,40,23,25 
3180 WINDOW#3,1,40,1,12 


3190 WINDOWf4,2,1 


1,16, 18 


3200 WINDOW#S, 15,21,16,18 


3210 RETURN 
3220 
3230 RESTORE 3220 
3240 FOR e=6 TO 9 
3250 FOR a=1 T0 5 


"Subroutine Define ENV/ENT 


3260 READ svz(e,a),envve(e,a),envvz 


(e,a) 
3270 
3280 
3290 
3300 
3310 
3320 
(e,a) 
3330 NEXT 
3340 NEXT 
3350 
3360 ’ 
3370 DATA 1,15,1, 
-1,8, 2,-1,20 
3380 DATA 1,15,1, 
0,1, 12,-1,4 
3390 DATA 1,15,1, 
-1,8, 2,-1,20 
3400 DATA 7,2,1, 
1, 


NEXT 
NEXT 


FOR e=6 TO 9 
FOR a=1 TO 5 


3420 DATA 1,1,3, 
PR FE 1,-1,3 
3430 DATA 1,2, 
‚I, 1,0,4 
3440 DATA 1,1,3, 
‚3 1,-1,3 

3450 DATA 1,0,3, 
‚1, 1,1,19 

3460 RETURN 

3470 ” Get Name 
3480 CLS 

3490 INPUT"Bitte 
n ein >”,name$ 
3500 RETURN 

3510 
3520 GOSUB 3470 


1, 


READ stz(e,a) ,envte(e,a),envtz 


ie ENV 
1,0,1, 1,0,1, ı2, 
1,-3,2, 1,0,1, 1, 
1,0,1, 1,0,1, ı2, 
1,1,1, 1,0,1, 1,0, 
IEIEITRESSRTBRSHRTN ENT 
1,-1,3, 1,0,3, 1,1 
1,0,2, 1,0,2, 1,-2 
1,-1,3, 1,0,1, 1,1: 
1,-1,1, 1,0,2, 1,0 


geben S6ie den Name 


Option Create Basic-Program 


3530 DPENDUT name$+".bas" 


3540 CLS 
36 
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3550 INPUT"Bitte geben 
e Zeile ein >",ft 
3560 IF ft<1 THEN GOTO 
3570 INPUT"Bitte geben 
ittweite ein>",st 


Sie die erst 


3540 
Sie die Schr 


3580 IF st<1 THEN GOTO 3570 

3590 

3600 zeile=ft 

3610 zeile$="rem --- This Sound was 


created by SOUNDMASTER (M.Lion/ ’87 
) u. 

3620 zeile$="oktave="+STRA$( oktave) + 
":r="+5TR$( rausch) :GOSUB 3940 

3630 IF envk=D THEN GOTO 3690 

3640 zeile$="ENV"”+STR$( envk) 

3650 FOR e=1 T0 5 

3660 zeile$=-zeile$+”,"+STRA$( svz(env 
k,e))+”","+STA$(envve(envk,e)) 

3670 zeile$=zeile$+","”+STRA$( envvz(e 
nvk,e)) 

3680 NEXT :GOSUB. 3940 

3690 IF entk=0 THEN GOTO 3750 

3700 zeile$="ENT"+STR$( entk) 

3710 FOR e=1 T05 

3720 zeile$=zeile$+"”, "+STRA$( stz( ent 
k,e))+","+5TA$(envte(entk,e)) 

3730 zeile$=zeile$+”, "+5STRA$( envtz(e 
ntk,e)) 

3740 NEXT:GOSUB 3940 

3750 zeile$="for x=1 to"+STRA$(z) :GO 
SUB 3940 

3760 zeile$=-" 
40 

3770 zeile$=-" fregq=-440*#( 2°(oktave+ 
((nh-10)/12)))"”:GOSUB 3940 

3780 zeile$=" perd=round( 62500/fre 
q) ":GOSUB 3940 
3790 zeile$=" 
:GOSUB 3940 
3800 zeile$=" sound 1,perd, 60-(5*n 
1) ,15, "+STA$( envk) +”, "+STR$( entk) +" 
‚r":GOSUB 3940 

3810 zeile$="next":GOSUB 3940 

3820 zeile$="end" :G0OSUB 3940 

3830 zeile$="data”+STR$(nh( 1))+"”,"+ 
STR$CHILI)) :Fl=1 

3840 FOR e=1 TO z STEP 10 

3850 FOR e2=1 TO 10 
3860 IF fi1l=0 THEN zeile$="data”+STRA 
$Cnh( ete2)) +", "+S5TR$(nl(e+te2)) :f1=1 
3870 IF fl=1 THEN zeile$=zeile$+”,"” 
+STRA$Cnhle+te2)) +", "+5STR$(nl(e+e2)) 
3880 NEXT 

3890 fl=0 
3900 GOSUB 3940 
3910 NEXT 

3920 CLOSEOUT 

3930 RETURN 

3940 PRINT#9,STR$( zeile) +zeile$ 
3950 zeile=zeile+tst 


read nh,nl":GOSUB 39 


if nh=0 then perd=0" 


4270 


3960 zeile$="" 
3970 RETURN 

3980 * Option II 
3990 GOSUB 3470 
4000 OPENOUT name$+”".snd" 

4010 PRINT#9,envk,entk,rausch 

4020 PRINT#9,nx,ny,z,stufe 

4030 FOR e=1 TO 9 

4040 FOR absc=1 TO S 

4050 PRINT#9,envtz(e,absc) ,envte([e, 
absc) ,‚stz(e,absc) 

4060 PRINT#9,envvz(e,absc) ,‚envve(e, 
absc) ,‚svz(e,absc) 

4070 NEXT 

4080 NEXT 

4090 FOR e=1 TO z 

4100 PRINT#9,nh(e) 

4110 PRINT#9,nl(e) 

4120 PRINT#9,halb(e) 

4130 NEXT 

4140 CLOSEOUT 
4150 : 

4160 RETURN 

4170 ° Option I: 
4150 GDSUB 3470 
4190 OPENIN name$+"”.snd"” 

4200 INPUT#9,envk,entk, rausch 

4210 INPUT#9,nx,ny,z,stufe 

4220 FOR e=1 TO 9 

4230 FOR absc=1 TO S 

4240 INPUT#9,envtz(e,absc) ,‚envtele, 
absc) ,‚stz(e,absc) 

4250 INPUT#9,envvz(e,absc),envve(e, 
absc) ,‚svz(e,absc) 

4260 NEXT 

NEXT 

FOR e=1 TD z 

INPUT#9,nh(e) ,nl(e),halb(e) 
NEXT 

CLOSEIN 

GOSUB 2170 

GOSUB 3020 

4340 GOSUB 2430 

4350 RETURN 

4360 ” Subroutine I Graphics 

4370 INK 0,0:INK 1,12:INK 2,24:INK 
3,25:PAPER 0:BORDER O0 

4380 MODE 1 

4390 RESTORE 4360 

4400 SYMBOL AFTER 239 

4410 SYMBOL 240,8,8,8,8, 120, 136, 136 
‚112:” halbe Note 

4420 SYMBOL 241,8,8,8,8,120,248,248 
‚112: viertel Note 

4430 SYMBOL 242,12,10,10,9,120,248, 
248,112: achtel Note 

4440 SYMBOL 243,0,0,0,0,112,136, 136 
‚112:” Ganze Note 

4450 SYMBOL 244,48,16,16,16,16,16,1 
6,124:’ ganze Pause 


Save File 


Load File 


4280 
4290 
4300 
4310 
4320 
4330 


37 


LISTING 


4460 SYMBOL 245,120,4,4,4,56,64,64, 
60: ’ halbe Pause 

4470 SYMBOL 246,64,64,64,80, 124,16, 
16,16:” viertel Pause 

4480 SYMBOL 247,56,68,68,68,56,68,6 
8,56: achtel Pause 

4490 SYMBOL 254,0,0,32,32,48,40,40, 
48:' b 

4500 SYMBOL 255,0,0,0,10,63,20,126, 
40:° # 

4510 FOR t=1 TO go 

4520 xa=x:ya=y:READ bef,x,y 

4530 IF bef=1 THEN PLOT x,y,1 


4540 IF bef=2 THEN DRAW x,y,1 
4550 IF bef<>4 THEN GOTO 4600 
4560 f=1 

4570 IF t>123 THEN f=2 

4580 IF t>129 THEN f=3 


MOVE x,y:FILL f:” 
Nur 664/6128 ! } ! 
NEXT 
DATA 1,0,385,2,640,385,1,640,3 
75,2,0,375,1,0,365,2,640,365,1,640, 
355,2,0,355,1,0,345,2,640,345,1,0,2 
85,2,640,285,1,640,275,2,0, 
275,1,0,265,2,640, 265 
4620 DATA 1,640,255,2,0,255,1,0,245 
‚2,640,245,1,640,205,2,0,205,1,0,20 
1,2,640,201,1,0,181,2,0,91,2,190,91 
‚2,190, 181,2,0,181,2,10,171 
‚2,10,101,2,180, 101 
4630 DATA 2,180, 171,2,10,171,1,10,1 
01,2,0,91,1,180,101,2,190,91,1,180, 
171,2,190, 181,2,370,181,2,370,91,2, 
190,91,2,200, 101,2,200, 171, 
2,360, 171,2,360,101,2,200, 101 
4640 DATA 1,200,171,2,190,181,1,370 
‚181,2,360,171,1,360, 101,2,370,91,1 
‚60,91,2,70,81,1,140,91,2,130,81,2, 
70,81,2,70,61,2,130,61,2,13 
0,81,1,130,61,2, 140,51 
4650 DATA 1,70,61,2,60,51,2,60,91,2 
‚60,51,2,140,51,2,140,91,1,240,91,2 
‚250,81,2,310,81,2,320,91,1,310,81, 
2,310,61,2,250,61,2,250,81, 
1,240,91,2,240,51 
4660 DATA 2,320,51,2,320,91,1,320,5 
1,2,310,61,1,250,61,2,240,51,1,370, 
181,2,380, 171,2,380,151,2,370, 141,2 
‚470,141,2,460, 151,2,460, 17 
1,2,380, 171,2,380, 151,2,460, 151 
4670 DATA 1,470,141,2,470,181,2,460 
‚171,1,470,181,2,370,181,1,370,91,2 
‚380, 101,2,620,101,2,630,91,2,360,9 
1,1,380,101,2,380, 131,2, 370 
‚141,1,380,131,2,620,131,2,620, 101 
A680 DATA 1,620, 131,2,630,141,2,630 
‚91,2,630, 141,2,470,141,4,375, 116,4 
‚375,161,4,195,146,4,5,146,4,65,66, 
4,245,66,4,265,86 


4690 DATA 4, 105,86,4,105,176,4,280, 
176,4,425,176,4,435, 136,4,625,116,4 
‚465, 156,4, 365, 156,4, 185, 156,4, 135, 
76,4,315,76 
4700 RETURN 


VAMPIRE 


Adventures erfreuen sich immer größer werdender 
Beliebtheit. Spannend müssen sie sein, eine gute Spiel- 
handlung haben und einen ausreichenden Wortschatz. 
Wenn die Geschichte stimmt und originell genug ist, 
dann reicht so ein sogenanntes ‚‚Textadventure“ 

ohne Grafik durchaus. 

Daß es auch ohne bunte Bilder geht, hat uns unser 
Leser Thomas Briegel bewiesen: Er schickte uns ein 

in Englisch verfaftes Adventure um ein Vampirschloß. 
Lassen Sie sich nicht von der Fremdsprache abschrek- 
ken, dies geschah in gutgemeinter Absicht. Mit eini- 
gen Schulkenntnissen kann man das Programm näm- 
lich durchaus verstehen und seine Sprachkenntnisse 
vertiefen. Vielleicht kennen einige von Ihnen, die 
auch mit IBM-Computern zu tun haben, das Pro- 
gramm. Nach dem treffenden Motto: ‚Was der kann, 
kann der CPC schon lange“, hat Thomas Briefel das 
Adventure auf die Schneider Computer umgeschrie- 
ben und es dabei auch gleich ein wen'g verbessert. 

Mit Erfolg, wie Sie sehen werden. 


DAS LISTING: GROSSZÜGIG BEI MUSIK 
UND WORTSCHATZ 


Tippen Sie das Programm ab und speichern Sie es mit 
SAVE“VAMPIRE“ oder einem anderen Namen auf 
Kassette oder Diskette ab. Vampire läuft auf allen 

3 Schneider-Computern. Nach Programmstart er- 
scheint eine kleine Titelgrafik und es ertönt ein ziem- 
lich langes Musikstück. Der Musikteil kann durch 
Entfernen von Zeile 450 und dem Programmteil 
MUSIC aber auch ganz weggelassen werden. Das Ad- 
venture hat einen Wortschatz von etwa 700 Verben 
und Objekten und ca. 30 Zimmer. Am Anfang können 
Sie aber nur fünf Räume betreten, denn das ganze 
Schloß besteht aus Geheimgängen, die eben erst er- 
forscht werden müssen. 


DIE HANDLUNG: SUCHEN SIE DEN VAMPIR, 
ABER BEEILEN SIE SICH 


Sie kommen um 8 Uhr abends in ein altes Schloß, in 
dem ein gefürchteter Vampir sein Unweisen treibt. 
Bis 12 Uhr haben Sie nun Zeit, diesen zu finden und 
zu töten. Wie man so etwas macht, dürfte ja hinläng- 
lich bekannt sein. Aber sehen Sie sich vor, denn die 
Zeit vergeht schneller, als man denkt! Das Vokabular 
besteht aus den üblichen Befehlen wie GET, DROP, 
OPEN, usw. sowie einigen Zusatzbefehlen. Die Befehls- 
syntax lautet “Verb Objekt“, z.B. OPEN DOOR. 
Von allen Befehlen müssen nur die ersten drei Buch- 
staben eingegeben werden. Mit INV (für Inventary) 
kann man sich zeigen lassen, was man bei sich trägt. 


(Bitte lesen Sie weiter auf Seite 43) 
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10 ARRRRRRRRRRHHRIHHIHRIHISIRISSESESESESEHNT 
20 ’* VAMPIRE * 
30 '# VON * 
20 ’* THOMAS BRIEGEL ” 
50 ’# FUER * 
60 ’* SCHNEIDER AKTIV * 
6ı ’* CPC 464/664/6128 Jje* 
62 ARRRRRHRRHHHHI THU HHIEENE U E 


70 PEN A BHRRRRRRRHHHHHHRRHHHIEE 
80 REM Programmtitel 

90 REN BEHRRRSRHRHHHHRRRRIHTHHHIIE HEN 
100 MODE 1:INK 0,0:INK 1,6:INK 2,26 
sINK 3,11:BORDER 0 

110 a=1:MODE 1:0RIGIN 77,0 

120 FOR a=1 TO 4 

130 FOR i=-1 TO 15 

140 PLOT 100,320,a:DRAW 130, 320:PLO 
T 100,320:DRAW 115,360:PLOT 130,320 
:DRAW 145,360 

150 PLOT 147,320:PLOT 149,320 

160 PLOT 165,320:DRAW 195, 320:PLOT 
165, 320:DRAW 1860, 360:DRAW 210,360: P 
LOT 195,320:DRAW 203,340:DRAW 190,3 
40 

170 PLOT 211,320:PLOT 213,320 

180 PLOT 232,320:DRAW 258, 320:DRAW 
267,340:DRAW 238, 340:DRAW 245, 360:D 
RAW 275,360 

190 PLOT 274,320:PLOT 276,320 

200 PLOT 292,320:DRAW 322, 320:PLOT 
292,320:DRAW 305, 360:DRAW 333,360 
210 PLOT 337,320:PLOT 339,320 

220 50UND 1,(i+ta)*10,2,15,5:50UND 2 
‚i#10,3,15,4,1,5:50UND 3,(i*#o)/10,3 
‚15,5 

230 ORIGIN i#2+77,-i 

240 NEXT i 

250 NEXT a 

260 MODE 0:A=-0:0RIGIN 77,0 

270 PLOT 100,320,a:DRAAW 130, 320:PLO 
T 100,320:DRAW 115,360:PLOT 130,320 
:DARAW 145,360 

250 5EOUND 1,0*#10,2,15,5:560UND 2,a#1 
0,3,15,4,1,5:50UND 3,3/10,3, 15,5 
290 PLOT 147,320:PLOT 149,320 

300 PLOT 165, 320:DRAW 195, 320:PLOT 
165, 320:DRAW 180,360:DRAW 210,360:P 
LOT 195, 320:DRAW 203, 340:DRAW 190,3 
40 

310. PLOT 211,320:PLOT 213,320 

320 PLOT 232,320:DRAW 258, 320:DRAW 
267,340:DAAW 238, 340:DRAW 245, 360:D 
RAW 275,360 

330 PLOT 274,320:PLOT 276,320 

340 PLOT 292,320:DRAW 322,320: PLOT 
292,320:DRAW 305, 360:DRAW 333,360 
350 PLOT 337,320:PLOT 339,320 

360 A-A+1:IF A<16 THEN ORIGIN A#2+7 
7,-A:GOTO 270 ELSE 370 

370 PEN 2:LOCATE 7,8 


380 PRINT"presents"” 
390 PEN 1:PRINT” 


VAMPIRE" 
PAINT” " 
3:PRINT " 


400 
410 PEN 


"=CHR$C 1 
64);” by Thomas Briegel" 
420 FOR ii=1 TO 3000:NEXT ii 
430 MODE 1:INK 0,0:INK 3,11:PAPER O 
:BORDER 0 


440 MODE 0:CL5:PEN 2:PRINT” Welco 
me to the”; :PEN 3:PRINT” VAMPIRE ’S 
CASTLE”; :PEN 2:PRINT" Adventur 


e.":PRINT:PAINT 

450 GOTO 2310 

460 PEN 6:PRINT:PRINT STRING$( 20,20 

8) :PEN 1:INPUT"Do you need the in- 

structions: ”, a$ 

470 IF UPPER$( a$) ="J3" THEN GOSUB 21 

20 ELSE MODE 1 

480 DIM d$( 19) ,o$( 31) ,1(25) ,p( 19,6) 
:1=1 

490 FOR x=1 TO 19:READ d$( x) :NEXT x 

500 DATA Entrance Hall,Study,Librar 

y,Armory, Tower 

510 DATA Lower Tower,Chapel,Brick F 

ireplace 

520 DATA Hidden Corridor,Secret Pas 
sage 

530 DATA Underground Lake Chamber,B 

oat,Alchemist’s Lab 

540 DATA Storeroom,Overhang,Gallery 
‚Antechamber,Vampire’s Toom 

550 DATA Torture Chamber 

560 FOR x=1 TO 25:READ 1(x) ::NEXT x 

570 DATA 5,1,9,3,4,6,99,7,13,14,14, 

8,15, 16,11,17,18,2,3,1,5,2,19,2,2 

580 t2=-8:r=11:w5$="Wodden 6takes"” 

590 FOR x=1 TO 31:READ o$(x) :NEXT x 

600 DATA North,5outh,East,West, "Up 
",Down,Sledge Hammer 

610 DATA Timepiece,Coil of Rope,Par 

chment 5croll,Axe,Dar,Key 

620 DATA Holywater,Flask of 0il,Cra 
te,Bucket 

630 DATA Torch,Nails,Tapestry,Boat, 

Rusty Door 

640 DATA Closed Coffin,Fire in the 

Fireplace,Bookcase,Sign,Parapets 

650 DATA Brick Fireplace,Rat,Wine,C 
heddar Cheese 

660 FOR y-1 TO 19:FOR x=1 TO 6:READ 
ply,x) :NEXT x,y 

670 DATA PR PT FREUEN LIREREERT 


Pk Pre. Seen une TEL TER EE 

650 DATA ‚2,399, 13,,55,3,,11,8,,19,, 
»,10,,555511,,5,5,14,9, 555 

690 DATA Pan E< Paare See [Pr 
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»7933917,,3559,10,13,, 

700 w$="GO0 GETLOODROHITOPETIEPUSKIL 
OILROWCLITAKREATHRBRE” 

710 n$-"N D1IS DO2E 03W O0AU 05D 
O6HAMOT7SCRI10AX 11WAT140IL15D0022COH 

F23VAM23FIR28"” 

720 0o$-"NORSOUEASWESUPF DOWSLETIMROP 
PARAXEOARKEYHOLFLACRABUCTORNAITAPBO 

ARUSCLOFIRBOOSIGPARBAIRATWINCHE" 

730 CLS:PEN 3:PRINT:PRINT”You are i 

n the ";:PEN 2:PRINT d$(1) :y=0:12=1 

740 IF 1(12)=0 OR 1<10 OR (1> 12 AN 

D 1 <> 18) THEN 760 

750 PRINT"It’s Dark ! 
":GOTO 800 

760 PEN 3:PRINT"”You see: ";:PEN 2:F 
OR x=1 TO 25:IF 1(x)=12 THEN PRINT 

o$Lx+6);", ";:y=y+1 

770 NEXT:IF y=0 THEN PRINT"nothing 

interesting. " ELSE PRINT " " 

780 PEN 3:PRINT"Obvious exits are: 

:PEN 2:FOR x=1 ‚FO 6:IF p(1,x)>O T 

HEN PRINT o$(x); ” 

790 NEXT :PRINT 

800 s=0:f=0:PEN 2:PRINT:PRINT STRIN 

G6$( 40,208) :PEN 1:INPUT"What do you 

want to do: ",a$:PRINT 


you can’t see 


B10 a$=UPPER$( a$) :b$=-" ":FOR x=1 
TO LEN(a$) 

820 IF MID$(a$,x,1)=-" " THEN b$=-MID 
$la$+" ”",‚x+1,3) 


830 NEXT:IF LEN(a$)=1 THEN b$=a$+" 
";a$="G0 " 

840 GOSUB 2020:12=-1:t1=-t1+1:IF 1-6 

O0 THEN t1=0:t2=t2+1 

B50 IF t2-12 THEN PEN 2:PRINT: PRINT 

"It’s midnight: the Vampire is awak 

e, He’s at your neck ";:60T0 2750 

860 IF a$=-"5WI" AND 1-11 THEN PEN 2 
:PARINT:PAINT"”You have drowned in th 

e ice cold water !";:60T0 2750 

870 x-INSTA(n$,b$) :IF x MOD 5-1 THE 

N s=VAL(MID$(n$,x+3,2)):60T0 890 

880 x=INSTR(0$,b$) :IF x MOD 3=1 THE 

N s=(x+2)/3 

890 x-INSTA(w$,0$) :IF x MOD 3-1 THE 

N f=(x+2)/3 

900 IF f>11 THEN fF=f-11 

910 IF a$<>"INV" THEN 960 

920 CLS:PEN 2:PRINT:PRINT"You are c 

arrying: ";:a=-0:FOR x=-1 TO 25 

930 FEN 3:IF 1(x)-O THEN PRINT o$(x 

+6)", ";:a=a+l 

940 NEXT:IF a=-0 THEN PRINT "nothing 


’ 
950 PRINT:GOTO 800 
960 ON F GOTO 1000, 1170, 1360, 1490, 1 
550, 1630, 1720, 1790, 1840, 1910, 1950 
970 PEN 2:PRINT:PRINT"I don’t know 
how to do that":GOTO 800 


980 PEN 2:PRINT:PRINT"I don’t know 

that word”:GOTO 800 

990 REM - 60 - 

1000 IF s<1 OR s>6 THEN 1040 

1010 IF p(1,s)>O THEN 1=-p(1,s):60T0 
730 

1020 PEN 2:PRINT:PRINT"You can’t go 
that way”:GOTO 800 

1030 PEN 2:PRINT:PRINT"You see noth 
ing special”:60TO 800 

1040 IF s<>28 OR 1<>2 THEN 1070 
1050 IF fi=0O THEN PEN 2:PRINT:PRINT 
"You have burned to death ";:6G0T0 2 
750 
1060 1=8:60T0 730 

1070 IF s<>27 OR 1<>5 THEN 1100 
1080 IF LEFT$C0$(27),1)="R" THEN 1= 

6:PEN 2:PRINT:PRINT"Climbed down ro 

pe":CALL &6BB06:PRINT:GOTO 730 


1090 PEN 2:PRINT:PRINT”"You fell and 
died ";:6G0TO 2750 

1100 IF s=21 AND 1(15)=1 THEN 1=12: 

G0TO 730 

1110 IF 1=16 AND b$="OVE"” THEN 1140 
1120 IF s<1 THEN 980 

1130 PEN 2:PRINT:PRINT"You can’t go 
there”:GOTO 800 


1140 IF 1(10)=1 AND o$( 16) -"Crate" 

THEN 1=15:60T0 730 

1150 PEN 2:PRINT:PRINT"It’s a littl 

e too high"”:G0TO 800 

1160 REM - GET - 

1170 IF s<?7? THEN GOTO 980 

1180 IF c>6 THEN PEN 2:PRINT:PRINT" 

You can’t carry any more"”:GOTO 800 
1190 IF 1(s-6)<>1 THEN 1330 

1200 IF s<>14 THEN 1230 

1210 v$="In":G0SUB 2100:IF a$="BuC" 
AND 1(11)=0 THEN 1340 

1220 PEN 2:PRINT:PRINT"You can’t do 
that”:GOTO 800 

1230 IF s<>20 THEN 1260 

1240 IF ta=0 THEN PEN 2:PRINT: PRINT 

"It’s nailed to an overhang":GOTO 8 

00 

1250 p( 16,1)=17:CL5:PRINT :PAINT"AHA 
! A hole in the wall":CALL &BB06:: 

PRINT:GOTO 1340 

1260 IF s<>19 THEN 1290 

1270 IF 1(1)<>O THEN PEN 2:PRINT:PR 
INT”"You have no hammer":GOTO 800 
1280 IF 1(13)=15 THEN ta=1:PEN 2:PR 
INT:PRINT"”The tapestry is loose":G0O 
TO 1340 

1290 IF s<>13 THEN 1320 

1300 1(23)=1:IF 1(25)=1 THEN 1340 
1310 PEN 2:PAINT:PRINT"The Rat has 
it":GOTO 800 

1320 IF s>20 AND s<30 THEN PEN 2:PR 
INT:PRINT"You can’t get it":GOTO 80 
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D ELSE 1340 

1330 PEN 2:PRINT:PRINT"I don’t see 
any ";o$(s) :GOTO 800 

1340 c=c+1:1(s-6)=-0:PEN 2:PRINT:PRI 
NT"You got the ";o0$(s) :G0TO 800 
1350 REM - LOOK - 

1360 IF s<? THEN 730 

1370 IF s=26 AND 1=1 THEN PEN 2:PRI 
NT:PRINT” ’The Vampire Wakes at Mid 
night ”":GOTO 800 

1380 IF s<>29 THEN 1410 

1390 IF 1(23)<>1 THEN 1330 

1400 PEN 2:PRINT:PRINT"A key is in 
it’s mouth !":1(7)=1:60TO 800 

1410 IF s<>10 THEN 1450 

1420 IF 1(4)=-0 THEN 1440 

1430 PEN 2:PRINT:PRINT”You don’t ha 
ve it":GOTO 800 

1440 PEN 2:PRINT:PRINT"”The scroll r 
eads: ’Not all exits are obvious.’"* 
:GOTO 800 

1450 IF s<>8 THEN 1030 

1460 IF 1(2)<>O THEN 1340 

1470 PEN 2:PRINT: PRINT "The time is 


now: ";:PEN 3:PRINT USING "##";t2; 
:PARINT"”:"; USING "#44" ;t1:G0OTO 800 
1480 REM - DROP - 


1490 IF s<? THEN GOTO 980 

1500 IF 1(s-6)<>O THEN 1430 

1510 IF s<>14 OR 1<>2 THEN 1530 
1520 o$( 24) ="Smoldering Ashes":fi-]1 
:1(8)=-99:c=c-1:G0T0 730 

1530 PEN 2:PRINT:PRINT"Okay, the "”; 
o$(s)"” is on the ";d$(1)"” Floor": 1( 
s-6) =1:c=c-1:G0TO 800 

1540 REM - HIT - 

1550 IF s<7 THEN 9B0O 

1560 IF 1(s-6)<>1 AND (1<>8 OR s<>2 
8) THEN 1330 

1570 v$-"With":GO5UB 2090:IF UPPER$ 
(a$)<>"AXE” OR s<>16 OR 1(5)<>O THE 
N 1590 

1580 o$( 16) «ws$:n$=-n$+"WOO165TA16": 
GOTO 730 

1590 a$-UPPER$(a$) :IF (a$<> "SELE" A 
ND a$<>"HAM”) OR s<>28 OR 1(1)==0 T 
HEN 1610 

1600 0$( 258) -"Broken Fireplace":p(B, 
1)=-10:d$( 8) =-0o$( 26) :GOTO 730 

1610 PEN 2:PRINT:PRINT"Nothing happ 
ened"”:GOTO 800 

1620 REM - OPEN - 

1630 IF s<? THEN 980 

1640 IF 1(s-6)<s>1 THEN 1330 

1650 IF s<>23 THEN 16B0 

1660 IF 1(7)<>O THEN PEN 2:PRINT:PR 
INT"The coffin is locked ... ";:60T 
O0 1980 

1670 0$( 23)="Vampire in the Coffin" 
:GOTO 730 


1680 IF s<>22 THEN 1610 

1690 IF oi=0 THEN PEN 2:PRINT:PRINT 
"Too much rust ";:GOTO 1980 
1700 0$( 22) ="Open Door" :p( 17,1)-18: 
G0OTDO 730 


1710 REM - TIE - 

1720 IF s<7 THEN 980 

1730 IF 1(s-6)<>O THEN 1430 

1740 IF s<>9 THEN 1220 

1750 v$="To":GOSUB 2090:IF a$<>"PAR 


" THEN 1220 

1760 1(3)=99:c=c-1:0$(27)="Rope tie 
d to the parapet"” :n$=n$+”"ROP27" 
1770 PRINT 0$(27);"!":GOTO 800 

1780 REM - PUSH - 

1790 IF s<7 THEN 980 

1800 IF 1(s-6)<>1 THEN 1330 

1810 IF s<>25 THEN 1610 

1820 PEN 2:PRINT:PRINT"AHA I - You 
have revealed a doorway"”:PRINT:CALL 
&BB06:p( 1,6) =9:G0OTO 730 

1830 REM - KILL - 

1840 IF s<? THEN 980 

1850 IF s<»23 OR LEFT$Lo$( 23) ,1) <>" 
V" THEN 1220 

1860 v$="With”:GOSUB 2090 

1870 a$=uPPER$( a$) :IF (a$="WO0O” OR 
a$=-"6TA") AND 1(10)=-0 AND o$( 16) -ws 
$ THEN 1890 

1880 CLS:PEN 3:PRINT:PRINT"” You fai 
led ! The Vampire awakes and su 
cks your blood !";:60T0 2750 

1890 CLS:PEN 3:PAINT:PRINT"” Congrat 


ulations! You have killed the Va 
mpire.";:GOTO 2640 
1900 REM - DIL - 


1910 IF 1(9)<>0 OR 1<>17 OR s<>22 T 
HEN 1220 

1920 PEN 2:PRINT:PRINT"”The door squ 
eaks open" :PRINT:CALL &BBO6 

1930 oi=1:0$( 22)="Open Door":p( 17,1 
)=-18:G60T0 730 

1940 REM - ROW - 

1950 IF 1<>12 OA 1(6)<>O THEN 1220 

1960 r=27-r:1=r:PEN 2:PRINT:PRINT"Y 
ou have rowed in the ";d$(1):CALL & 
BBO6 

1970 PRINT:1( 15)=1:60T0 730 

1980 PEN 2:PRINT: PRINT: PRINT 5TRAING 
$(40,208) :PEN 1:PRINT:INPUT"Would y 
ou like to try again: ",a$ 

1990 a$-UPPER$(.a$) :IF a$="J" OR a$=- 
"Y" THEN CLEAR:RUN 430 

2000 IF a$="R" THEN t1=t1-2:6G0T0 BO 
0 

2010 CLS:END 

2020 PEN HH RR 

2030 REM Make Input 

2040 PEN HH RRRHHRHIHHIHIRSESESESRSEN 


2050 a$=LEFT$La$+” "‚,3):FOR i=1 T 
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03 

2060 ch=ASC(MID$(a$,i,1)):IF ch>96 
THEN MID$( a$,i, 1) =CHRA$L ch-32) 

2070 ch=ASC(MID$(b$,i,1)):IF ch>96 
THEN MID$(b$,i, 1) =CHA$( ch-32) 

2080 NEXT i:RETURN 

2090 REM - GET WHAT -— 

2100 PEN 2:PRINT:PRINT"-- ";v$;:PRI 

NT" what:”,:INPUT a$ 

2110 GOSUB 2020: RETURN 

2120 REN HR RARHRRRRHRHHRHHFREINEN 

2130 REM INSTRUCTIONS 

2140 REM Fraser 

2150 PEN 1:MODE 2 

2160 PRINT"VAMPIRE ’S CASTLE has a c 

oncleated goal. You learn what the 
goal is" 

2170 PRINT”by exploring your surrou 
ndings. The computer will act as y 

our eyes" 

2180 PRINT"and hands. It will acce 

pts short phrases as commands and 
assumes" 

2190 PRINT"that the first word is a 


verb and the last word is the obje 
kt.” 


2200 PRINT"”For exemple: READ THE SI 
GN. The computer has a vocabulary 

about 70" 

2210 PRINT"words. S5ame of the more 
important words you should know be 

fore you" 

2220 PRINT"start laying are: 
objekt>, DROP <objekt?>, 

ekt>, or" 

2230 PRINT" just 
on> or “placer, 
lls what” 

2240 PRINT"you are carrying). The c 
omputer knows the abbreviations: E, 
W, N, 5” 

2250 PRINT"U and D for GO EABT, 60 
WEST, etc.": PRINT 

2260 PRINT"The computer’s vocabular 

y is good, but limeted. If you ar 

e having” 

2270 PRINT"trouble doing something, 
try re-phrasing the comand or you 

may need" 

2280 PRINT"some objekts to accompli 
sh the task. By the way, the compu 
ter only" 

2290 PRINT"look at the first 3 lett 
ers of each word." :PRINT: PRINT 

2300 PRINT TAB( 25) "--- GOOD LUCK -- 
-":CALL &BB06:MODE 1:RETURN 

2310 REM Herren 

2320 REM MUSIC 

2330 REM Hrn 


2340 ENV 1,2,14,1,3,-5,1,11,-1,12:E 


GET < 
LOOK <obj} 


60 <directi 
INVENTORY (te 


LOOK, 
and 


NV 2,3,10,1,3,-6,1,12,-1,30 

2350 ENT 1,2,1,1,3,-1,3,1,1,3:ENT - 
2,2,1,1,4,-1,1,2,1,1 

2360 DIM si(2) 

2370 RESTORE 2560 

2380 a=2 

2390 FOR takt= 
2400 READ s3,s2 
2410 FOR ton=0 TO 2:READ sIi( ton) :NE 


1 TO 33 


2420 FOR i=1 TO 2 

2430 SOUND 4,5s3/3,203,1,2,1:50UND 2 
‚1,26:50UND 1,1,26 

2440 SOUND 2,s2/a,177,0,2,2:50UND 1 
1,39 

2450 FOR j=1 TO 2:FOR ton=0 TO 2:50 
UND 1,s1(ton) /a,25,0,1,1:NEXT ton,j 
2460 NEXT i 

2470 NEXT takt 

2480 FOR takt=1 TO 2 

2490 READ s3:50UND 4,s3/a,402+takt* 
3,0,2,1:50UND 2,1,26:50UND 1,1,26 
2500 READ s2:50UND 2,s2/a,377+takt* 
3,0,2,2:50UND 1,1,27 

2510 FOR i=1 TO 14:READ s1:50UND 1, 
s1/a,25-1%#((takt=2)AND(i>9))-2*#((ta 
kt=2) AND(i>11))-2#((takt=2) AND( i=14 
)),0,1,1:NEXT 

2520 NEXT takt 

2530 READ s1,s2,s3 

2540 SOUND 1,51/a,500,1,2,1:50UND 2 
‚s2/a,500,1,2,1:50UND 4,s3/a,500,1, 
2,1 

2550 CLEAR:GOTO 460 

2560 DATA 478,379,319,239, 190 

2570 DATA 478,426, 284,213, 179,506,4 
26,319,213,179,478,379,319,239, 190, 
478,379,284, 190, 142,478,426, 338,284 
‚213,506,426,319,213,159,506,478, 37 
9,319,239 

2580 DATA 568,478,379,319,239,851,5 
68,426, 338,239, 638,506,426, 319,253, 
638,536, 379,319,225,716,568, 426,284 
‚213,716,602,426, 358,253, 758,638,47 
8,319,239 

2590 DATA 758,716,568,478,358,851,7 
16,568,478, 358, 1276,851,638, 506, 358 
‚956, 758,638,478,379,956,638,536,47 
8,379, 1432,716,568,478,379, 1351, 956 
‚568,478,402 

2600 DATA 1276,804,506,478,402, 1204 
‚716,506,478,426, 1276, 716,638,506,4 
26, 1276,758,638,478,379, 1276,851,63 
8,478, 358, 1276,851,638,506, 358, 1276 
‚804,568,478,338 

2610 DATA 1276, 758,638,478,319, 1276 
‚851,638,478,358, 1276,851,638,506,3 
58, 1911,956, 638,536, 379, 1911,956, 71 
6,568,478,358,478,358,478,568,478,5 
68,716,568,716,851,716,851 
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2620 DATA 1911,1012,319,253,213,179 
‚213,253,213,253,319,253,426, 358,37 
9,426 
2630 
2640 
2650 
2660 
2670 
2680 


DATA 239, 379,956 

RPEM #Freusuerueereee 

REM WINNER SOUND 

REM FRE 

ENV 1,1,12,1,1,0,5,12,-1,2 

ENV: 2,1,13,1,1,0,15,13,-1,5 
2690 ENV 3,1,13,1,12,-1,3 

2700 ENT 3,5,40,1,5,20,1,10,25,1:EN 
V 4,11,1,5,2,0,120,11,-1,14:ENT -5, 
14,-10,1,1,120,1 

2710 ENV 5,1,15,1,15,-1,12:ENV 6,1, 
12,1,12,-1,9:ENV 7,15,-1,2:ENV 8,10 
‚1,1,20,0,1,10,-1,2 

2720 ENT -8,1,1,1:ENV 9,11,-1,2,1,1 
0,1,10,-1,2,1,10,1,10,-1,2 

2730 SOUND 129,250,0,0,5,5 

2740 GOTO 1980 

2750 REM Frese eereeteH 

2760 REM LOOSER SOUND 

2770 REM FHsseueeererent 

2780 ENV 1,1,12,1,1,0,5,12,-1,2 
2790 ENV 2,1,14,1,1,0,15,13,-1,5 
2800 ENV 3,1,13,1,12,-1,3 

2810 ENT 3,5,30,1,5,20,1,10,25,1:EN 
V 4,11,1,5,2,0,120,11,-1,14:ENT -5, 
14,-10,1,1,120,1 

2820 ENV 5,1,15,1,15,-1,12:ENV 6,1, 
12,1,12,-1,9:ENV 7,15,-1,2:ENV 8,10 
‚1,1,20,0,1,10,-1,2 

2830 ENT -8,2,1,3:ENV 9,11,-1,2,1,1 
0,1,10,-1,2,1,10,1,10,-1,2 

2840 SOUND 129,500,0,0,5,5 

2850 GOTO 1980 


BETT 


presents 


ya MP IRRE 


Weitere ergänzende Informationen zur Handlung und 
Befehlssyntax sind im Programm enthalten. 
Noch was: Nicht zu schnell aufgeben! Das Programm 
besitzt einen gut durchdachten Lösungsweg, den wir 
getestet haben. Ganz blutige Adventure-Neulinge soll- 
ten allerdings die Finger davon lassen, da dies ein ziem- 
lich schweres Adventure ist. Und weil dem so ist, wird 
Schneider aktiv auch irgendwann den Lösungsweg ver- 
öffentlichen, wenn sich die Nachfragen danach häu- 
fen. Fürs Erste probieren Sie es doch mal selbst. 
Und nun viel Spaß mit Vampire! ie 
TB 


w 


FÜNFIN 
EINER REIHE 


Unser Autor hat für alle Leser von Schneider aktiv 
ein Programm geschrieben, das sich sehen lassen kann: 
„Fünf in einer Reihe.‘ Wie der Tite! schon sagt; 
müssen Sie versuchen, fünf Ihrer Steine in eine Reihe 
zu setzen. Das hört sich vielleicht einfacher an als es 
ist, denn es wird immer abwechselnd gesetzt. Wenn 
Sie allein spielen, ist Ihr Gegenspieler der CPC. Und 
der hat’s in sich! 


Fünf in einer Reihe ® Armin Trutnau 


00:41 1:56 


Das Spiel wird auf einem Gitternetz von 15 mal 17 
Kästchen gespielt. Sie können entweder allein gegen 
den CPC oder zu zweit mit einem Partner spielen. 
Wenn Sie zu zweit spielen, haben beide Partner die 
Möglichkeit, ihren jeweils letzten Zug durch Drücken 
der “K“-Taste zurückzunehmen. 


NARRENSICHERES SPIEL 


Das Programm ist so aufgebaut, daß Bedienungsfehler 
ausgeschlossen sind. Sie können die Felder entweder 
mit den Cursortasten anfahren und das Setzen mit 
der “Enter/Return“-Taste ausführen oder Sie benut- 
zen den Joystick. Das Programm hat eine ansprechen- 
de Grafik und ist sehr schnell. Für beide Spieler lau- 
fen getrennte Uhren mit, außerdem wird die Anzahl 
der jeweils schon gewonnenen Partien angezeigt. 
Wenn Sie allein gegen den CPC spielen, müssen Sie 
sich wirklich anstrengen, den Computer zu überlisten, 
denn die Spielstärke ist enorm hoch und jeder kleine 
Fehler von Ihrer Seite wird vom Rechner erbarmungs- 
los erkannt und sofort in den entsprechenden Gegen- 
zug umgesetzt. " 


VOR DEM ERSTEN SPIELEN ERST SICHERN 


Wenn Sie das Programm abgetippt haben, sollten Sie 
es zuerst einmal absaven, denn sonst besteht die Ge- 
fahr, daß bei einem Tippfehler Ihr Rechner abstürzt, 
das Programm verloren ist und Ihre Arbeit umsonst 
war. 

Dieses Spiel ist gut geeignet, zum Feierabend einmal 
ein reines Denk- und Taktikspiel allein oder zu zweit 
nur so zum Zeitvertreib oder als Wettbewerb zu 
spielen. 


(Bitte lesen Sie weiter auf Seite 52) 
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[23 U UEUEIEESESE TEE TEE SEE SESESESE SEE SEE SEE SEE SE SEE IESE 


10 ’# FUENF IN EINER REIHE * 
15 # VON * 
20 ’* ARMIN TRUTNAU #* 
e2 ’%* FUER = 
24° SCHNEIDER AKTIV * 
26 ’* CPC 464/664/6128 je* 


30 EEE ENEEEEUEEEUUEUIINIEIEIIIE 


40 MODE 1:INK 0,13:INK 1,26:INK 2,0 
:BORDER 13:DEFINT A-Y 

50 SYMBOL AFTER 32:5YMBOL 93,102,0, 
102, 102, 102, 102,62,0 

60 PEN 2:LOCATE 14,13:PRINT”BITTE W 
ARTEN” 

70 MEMORY 24000:FOR I-27000 TO 2901 
3:READ A$:POKE I,VAL("&”+A$) :NEXT 
80 CLS:WINDOW#1,9,33,3,23:WINDOW#2, 
1,40,3,23:WINDOW#3,8,33,7,20:WINDOW 
#4,4,37,13,15:PEN#2,2:PEN#4,2:TAG 
90 H=-0:605SUB 130:6G0T0 210 

100 REM 

110 REM ##56PIELFELDBEGRENZUNG## 

120 REM 

130 FOR L-4 TO 20:POKE 26000+( H*25) 
+L,4:NEXT:H=H+1:IF H<15 THEN 130 
140 POKE 25501,0:POKE 25036,0:POKE 
28870, 30:POKE 28898, 22 

150 POKE 25081,0:POKE 25082,0:POKE 
25017,0:ZUF=1:KK=O 

160 FOR I=-25100 TO 25111:POKE I,O:N 
EXT:POKE 25101,255:POKE 25107,255:R 
ETURN 

170 REM 

180 REM ##BILDAUFBAU UND SPIELABFRA 
GE#* 

190 REM 

200 PLOT 0,18,2:PRINT STRING$( 40,32 
) ; :RETUAN 

210 PLOT 1,0,1:DRAWR 640,0:PLOT 1,2 
2:DRAWR 640,0:PLOT 1,399:DRAWRA 640, 
0:PLOT 1,376:DRAWA 640,0 

220 PLOT 36,394,2:PRINT”F]nf in ei 
ner Reihe ";:PRINT CHA$( 164) ; :PRIN 
T”" Armin Trutnau”; 

230 MOVE 112,260:PRINT"Spieler gege 
n Spieler (1)"; 

240 MOVE 112,220:PRINT"Spieler gege 
n Computer (2)"; 

250 MOVE 112, 180:PRINT"Bedienungsan 
leitung (3)”; 

260 MOVE 1,18:PRINT”S5561 Klausen E 
berhardstr.10 06578/7908”; 

270 A$=INKEY$:IF A$="2"THEN CO=1:PO 
KE 25085,0:POKE 25075,1 ELSE IF A$= 
"1"THEN CO=0:POKE 25075,0 ELSE IF A 
$=-"3"THEN 1200. ELSE 270 

280 GOSUB 160:CL5#2:PW=-1:P6=-1:605 
UB 1110:6G05UB 1130 

290 CLS#1:CL5#3:G0OSUB 720:605SUB 730 
:INK 3,13 


300 FOR i=-54 TO 354 STEP 20:PLOT 12 

9,i1,3:DRAWR 374 ,0:NEXT 

310 FOR i=131 TO 505 STEP 22:PLOT i 
‚54:DRAWA 0,300:NEXT:INK 3,6 

320 PLOT 129,52,3:DRAW 507,52 :DRAW 

507,356:DRAW 129, 356:DRAW 129,52 

330 ' ON CO GOTO 350:PLOT 130,44,3:PR 

INT”"U”; :PLOT 148,44,2:PRINT"nentsch 

ieden " 

340 PLOT 362,44,3:PRINT"”K"; :PLOT 37 

8,44,2:PRINT"orrektur"”; 

350 X=310:Y=212:1L=12:H=>7:0N CO GOTO 
390 

360 GOSUB 200:PLOT 132, 18,2:PRINT"W 

er zieht zuerst ? (5/W)"; 

370 IF INKEY(60)<>-1 THEN Z=2 ELSE 
IF INKEY (59)<>-1 THEN Z=1 ELSE 370 

380 EVERY 50,3 GOSUB 710:POKE 26187 
‚Z2:G0O5SUB 880:6056UB 850:60T0 510 

390 GOSUB 200:PLOT 71,18,2:PRINT"Wi 
lAlst Du zuerst ziehen ? (3j/n)"; 

400 IF INKEY(45)<>-1i1 THEN Z=1 ELSE 
IF INKEY (46)<>-1 THEN Z=2 ELSE 400 

410 EVERY 50,3 GOSUB 710:POKE 26187 
‚2:G0OSUB 880:0N Z GOTO 450, 1010 

420 REM 

430 REM ##ERSTER ZUG DES COMPUTERS* 

# 


440 REM 

450 GOSUB 900:FOR I=1 TO 1500:NEXT: 
ZUF=O 

460 LM=INT( AND#3) +11: HM=INT( AND*#3) + 
6:IF PEEK( 26000+LM+HM#25) <>4 THEN 4 
60 

GOTO 940 

REM 

REM ##TASTATURABFRAGE## 

REM 

ZA-0 

520 IF(INKEY(72)=-0 OR INKEY(0)=-0)AN 
D Y<340 THEN GOSUB 650: Y=Y+20:H=H+1 
:G0TO 670 

530 IF( INKEY( 73) =0 OR INKEY(2)=0)AN 
D Y>80 THEN GOSUB 650: Y=Y-20:H=H-1: 
GOTO 670 

540 IF( INKEY(74)-0 OR INKEY(8)-0)AN 
D X>143 THEN GOSUB 650:X=X-22:L=L-1 
:G0TDO 670 

550 IF( INKEY( 75) -0 
D X<482 THEN GOSUB 
:60T0 670 

560 IF INKEY(76)-0 OA INKEY(77)-0 0 
AR INKEY( 18)=0 THEN 780 

570 IF CO=-0O AND INKEY(42)<>-1 THEN 

1100 

580 IF CO=0 AND KK=1 AND INKEY( 37) < 
>-1 AND PEEK( 26000+HM*#25+LM) <>4 THE 
N 590 ELSE 600 

590 POKE 26000+HM#25+LM,4:GOSUB 890 
:ZA=0:G0SUB 650:X=XK: Y=YK:L=LM: H=HM 


OR INKEY( 1)=0)AN 
650:X=>X+22:L=L+1 
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:G60T0 840 

600 IF INKEY( 16) <>-1 THEN TAGOFF:EN 

=REMAIN( 3) :G0OTO 80 ELSE 660 

610 REM 

620 REM ##CURSORBEWEGUNG*## 

630 REM 

640 FOR I-0 TO 50:NEXT 

650 PLOT X-2,Y,ZA:DRAWR 18,0:DRAWA 

0,-16:DRAWA -18,0:DRAWA 0, 16:RETUAN 

660 A$=INKEY$:IF A$<>""THEN 510 

670 ZA=-1:G6G05UB 640:ZA=-2:G05UB 640:6G 

0OTO 660 

680 REM 

690 REM 

700 REM 

710 ON 
720 PEN 

0 

730 
0 

740 

750 

760 

770 REM 

780 IF PEEK( 26000+( H*25) +L)<>4 THEN 
GOSUB 200 ELSE 810 

790 SOUND 1,400,20,6,8,8,8:MOVE 127 
‚18:PAINT"Dieses Feld ist besetzt |! 
";:FOR i=1 TO 2500:NEXT 

800 IF CO=1 THEN 1010 ELSE GOSUB 20 

0:0N Z GOSUB 870,860:G0T0 660 

810 ZA=0:G0SUB 650:POKE 26000+( H#25 

)+L,Z:G0OS5UB 880:IF CO=1 THEN GOSUB 

900:6G0T0 910 

820 HM=H:LM=L:XK=X: YK=Y:KK=1 

830 CALL 27000:IF PEEK( 25017)=1 THE 

N 1090 ELSE IF PEEK(25017)=2 THEN 1 
080 
840 
850 


##ZEITABFRAGE*## 


Z GOTO 730,720 
2:TAGOFF:CALL 28920:60T0 74 
PEN 1:TAGOFF:CALL 28937:60T0 74 
TAG:LOCATE 80,80:RETURN 

REM 


REM ##5PIELVERWALTUNG*## 


GOSUB 850:G60T0 660 

GOSUB 200:IF Z=1 THEN Z=2:ELSE 

Z=1:G0T0 870 

860 PLOT 178, 18,2:PAINT"Schwarz ist 
am Zug"; :POKE 25076, 2:RETURN 

870 PLOT 194,18,2:PRINT"Weiss ist a 

m Zug”; :POKE 25076, 1:RETURN 

880 SOUND 1,139,15,5:FOR I=2 TO 14: 

PLOT X,Y-I,Z:DRAWR 14,0:NEXT:RETURN 

890 SOUND 1,139, 15,5:FOR I=2 TO 14: 

PLOT XK,YK-I,O:DRAWR 14,0:NEXT:RETU 

AN 

900 Z=2:6G05UB 200:MOVE 215, 18:PRINT 
"Ich bin am Zug”; :RETURAN 

910 POKE 25036,0:0N ZUF GOTO 450 

920 POKE 25090, INT( AND*#4) :CALL 2700 

0 

930 HL=( PEEK( 25601) #256) +PEEK( 25600 

) :HM=INT( ( HL-26000) /25) :LM=( HL-2600 

0) -CHM*25) 

940 X=46+( LM#22) : Y=72+( HM#20) :POKE 

26000+( HM#25) +LM,2 


950 IF PEEK( 25501) >155 THEN GOSUB 8 
80:60T0 1050:ELSE IF PEEK( 25036) >1 
THEN 1050 

960 IF PEEK( 25099) <7 AND PEEK( 25082 
)<>0 AND PEEK( 25081)=70 THEN 1100 


970 IF PEEK( 25081) -70 AND FEERI 2509 
9)<S50O AND PEEK( 25501)=0 AND PEEK( 25 


500) <23 THEN 980 ELSE 1000 

980 GOSUB 200:PLOT 13, 18,2:PRINT”Ni 
mmst Du ein Unentschieden an ? (j/n 
)”;:60SUB 880:1L=LM:H=HM 

990 ZA=1:6G05SUB 640:ZA=2:GOSUB 640:I 
F INKEY( 45) <>-1 THEN ZA=0:G0OSUB 640 
:G60TO 1100 ELSE IF INKEY(46)<>-1i1 TH 
EN 1000 ELSE 990 

1000 FOR I=1 TO 600#( PEEK( 25090) +3) 
:NEXT:GOSUB 880:L=LM:H=HM 

1010 Z=1:605UB 200:MOVE 211,18:PRIN 
T”"Du bist am Zug”; :GOTO 660 

1020 REM 

1030 REM ##5PIELENDE UND PUNKTEANZE 
IGE*## 

1040 REM 

1050 EN=REMAIN( 3) :G05UB 200:IF PEEK 
(25501) <155 THEN PLOT 230, 18,2:PRIN 
T"Ich gebe auf"; :6OSUB 1070:6G0SUB 1 
110:60T0 1150 

1060 PLOT 190, 18,2:PRINT"Ich habe g 
ewonnen”; :GOSUB 1070:G0SUB 1130:GOT 
0 1150 

1070 FOR I=-16 TO-8:50UND 1,-I#10, 1 
5,5:NEXT :RETURN 

1080 EN=REMAIN( 3) :ZA=0:G605UB 650:PL 
0T 162, 18,2:PRINT"”Schwarz hat gewon 
nen"; :GOSUB 1070:G0SUB 1130:G0T0 11 
50 

1090 EN=REMAIN( 3) :ZA=-0:G05UB 650:PL 
OT 178, 18,2:PRINT"Weiss hat gewonne 
n";:6G05UB 1070:G605UB 1110:G0T0O 1150 
1100 EN=REMAIN( 3) :ZA=0:G05UB 650:60 
SUB 200:PLOT 218, 18,2:PRINT"Unentsc 
hieden"; :G0S5UB 1070:605SUB 1110:6G0SU 
B 1130:60T0 1150 

1110 PW=PW+1:IF PW=10 THEN PWX=B 
1120 PLOT 540-PWX,202,1:PRINT PW;:R 
ETURN 

1130 PS=PS+1:IF PS=10 THEN PSX=8 
1140 PLOT 46-PSX,202,2:PRINT PS; :RE 
TURN 

1150 CALL &BB18:G0OSUB 200:MOVE 144, 
18:PRINT”Noch ein Spiel ? (j/n)"; 
1160 IF INKEY( 45) <>-1 THEN CLS#1:H= 
0:605UB 130:G0T0 290 ELSE IF INKEY( 
46) <>-1 THEN TAGOFF:GOTO 80 ELSE 11 
60 
1170 
1180 
1190 
1200 


REM 

REM ##BEDIENUNGSANLEITUNG®# 
REM 

TAGOFF :CLS#2:LOCATE#2,11,2:PRI 


NT#2, "BEDIENUNGSANLEITUNG” :PRINTA#2: 2 
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LISTING 


PRINT#2 

1210 PRINT42,"Das Ziel dieses Spi 

eles ist es, f]nfSteine in eine 

waagerechte, senkrechte,oder diago 
nale Reihe zu setzen, wobeidie Mi 
tspieler abwechselnd jeweils einen6 
tein setzen d]rfen.” 

1220 PRINT#2,"Es kann gegen mich 
oder gegen einezweite Person g 

espielt werden. Ich wer-de in jedem 
Fall f]lr die Einhaltung derSpielr 

egeln sorgen." 

1230 PRINT#2,"Die Steine werden mi 
t den Cusortastenoder mit einem J 

oystick gef]hrt, und mitder Feuert 
aste oder mit der grossenEntert 

aste gesetzt.” 

1240 GOSUB 1250:CALL &B8B18:CL5#2:60 
TO 1260 

1250 PEN 2:LOCATE 10,22:PRINT"WEITE 

A MIT TASTENDRUCK" :RETUAN 

1260 PRINT#2,"Durch Dr]cken der Ta 
ste ’CLA’ wird dasSpiel abgebroch 

en und ins Hauptmenuszur]ckgekeh 
rt” 

1270 PRINT#2,”"Man kehrt ebenfalls 
ins Hauptmenue zu-r]ck, wenn die 

Frage nach einem weite-ren Spiel v 
erneint wird. 

1280 PRINT#2,"Im Spiel mit einer 
zweiten Person kannman sich durch D 
r]lcken der Taste ’U’ aufein Unentsc 
hieden einigen. Im Spiel mitmir bi 

ete ich ein Unentschieden an, wennd 
ie Fortf]Jhrung des Spieles nicht 

mehrsinnvoll ist.” 

1290 PRINT#2,"Durch Dr]cken der 
Taste ’K’ kann derletzte Zug zur]c 
kgenommen werden. Da ichmeine Z]ge 
auch nicht zur]cknehme, er-laube 
ich dieses nicht, wenn gegen michg 
espielt wird." 

1300 GOSUB 1250:CALL &BB18:CL542:TA 
6:GOTO 230 

1310 REM 

1320 REM ##DATA FUER M-CODE*## 

1330 REM 

1340 DATA 97,32,08,62,3A,FA,61,3C,3 
2,FA,61,FE,0A,20,0A,3E, 1A,32,C6,70, 
3E, 13,32 

1350 DATA E2,70,FE,46,20,03,32,F9,6 
1,21,00,00,22,9C0,63,21,28,65,22,C2, 
61,2A,C2 

1360 DATA 61,23,22,C2,61,7C,FE,66,2 
0,06,7D,FE,90,20,01,C9,3A,F3,61,FE, 
01,28,0E 

1370 DATA 11,68,00,19,7E,47,3A,F4,6 
1,8B8,20,DB, 18,09, 11,68,00,19,7E,FE, 
04,20,D0 

1380 DATA CD, 15,6A,3A,B4,61,FE,00,2 


8,08,3A,08,62,C6,01,32,08,62,ED,5B, 
02,62,CD 

1390 DATA F0,70,3A,9D,63,47,3A,B5,6 
1,88,38,AD,20,0A,3A,9C,63,47,3A,B4, 
61,B8,38 

1400 DATA 
2,61,11,.68,06, 16, 2b OO Eh rar ay° 
32,84,61 

1410 DATA 32,B5,61,32,FE,61,32,FF,6 
1,3E,02,32,BA,61,3E,02,32,BA,61,97, 
32,86,61 

1420 DATA 32,B7,61,32,B8,61,2A,C2,6 
1,11,64,00,19,11,01,00,CD,68,6A,2A, 
C2,61,11 

1430 DATA 04,00, 19,11,19,00,CD,68,6 
A,2A,C2,61,11,1A,00,CD,68,6A,2A,C2, 
61,11,08 

1440 DATA 00, 19,11,18,00,CD,68,6A,1 
8,2C,7E,32,AC,61,19,7E,32,AD,61,19, 
7E,32,AE 

1450 DATA 61,19,7E,32,AF,61,19,19,7 
E,32,B0,61,19,7E,32,81,61,19,7E,32, 
B2,61,19 

1460 DATA 7E,32,B3,61,CD,50,68,C9,3 
A,B6,61,FE,00,CA,32,6B,FE,01,28,2F, 
3A,BA,61 

1470 DATA FE,02,20,06,11,20,03,CD,F 
0,70,11,8C,02,CD,F0,70,3A,87,61,FE, 
01,20,78 

1480 DATA 3A,BA,61,FE,02,20,06, 11,7 
0,17,CD,F0,70,11,D0,07,CD,F0,70,18, 
63,3A,BS 

1490 DATA 61,FE,00,20,5C,3A,BA,61,F 
E,02,20,32,3A,B7,61,FE,01,20,1C,3A, 
BA,61,FE 

1500 DATA 1D,28,47,11,1E,00,CD0,F0,7 
0,3A,FE,61,FE,01,20,3A,11,C8,00,CD, 
FO,70,18 

1510 DATA 32,3A,FE,61,FE,01,20,2B,1 
1,23,00,CD,F0,70,18,23,3A,87,61,FE, 
01,20,0F 

1520 DATA 3A,FF,61,FE,01,20,15,11,6 
4,00,CD,F0,70,18,0D,3A,FF,61,FE,01, 
20,06, 11 

1530 DATA 14,00,CD,F0,70,3A,BA,61,F 
E,01,20,0F,3A,B8,61,FE,01,C0,3A,CC, 
61,C6,01 

1540 DATA 32,CC,61,C9,3E,01,32,BA,6 
1,C3,2C,6A,3A,BA,61,47,0E,04,3A,AE, 
61,57,3A 

1550 DATA AD,61,5F,3A,B1,61,67,3A,B 
2,61,6F,3A,AF,61,B8,20,36,7A,B8,20, 
21,7B,B8 

1560 DATA 20,10,3A,AC,61,B8,CA,63,7 
0,3A,80,61,B88,20,36,C3,63,70,3A,B0O, 
61,B8,20 

1570 DATA 2D,7C,B8,20,29,C3,63,70,3 
A,BO,61,88,20,20,7C,B8,20,1C,7D,BB, 
20,18,C3 

1580 DATA 63,70,3A,B0,61,B8,20,0F,7 
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ANZEIGENSERVICE 


Die große Börse für jeden Zweck in SCHNEIDER AKTIV. Kostenlos für Privat-Inserenten. Spottbillig für gewerbliche Anbieter. Ein- 
fach Coupon ausschneiden, fotokopieren 0.ä., ausfüllen und ab die Post — Freimachen nicht vergessen! — Unsere Adresse steht 
auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, daß wir offensicht- 
lich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen vorbehalten müssen, 
- insbesondere, wenn deren Inhalt gegen geltendes Recht verstößt. Private Chiffreanzeigen werden nicht aufgenommen. Für Pri- 
vatanbieter: etwa bis zu acht Zeilen a 28 Anschläge. Für gewerbliche Anbieter: 5 DM p.mm. bei beliebiger Größe. 


JO ED a 10 DD DD PD a RO 
EEE TEE FIT IT ErER 


SCHNEIDER AKTIV Name 
ANZEIGENABTLG Vorname 
POSTFACH 1161 Straße /Hausnr. 
D-8044 UNTERSCHLEISSHEIM _pız/0rt 


EEPRRRCHEFEE ESS SS SEE EIER RES BE UESHEESEVERLESERER I. 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
SIND KOSTENLOS 


Das bietet Ihnen ab sofort SCHNEIDER AKTIV: KLEINAN- 
ZEIGEN SIND KOSTENLOS FÜR PRIVATANBIETER! Su- 
chen Sie etwas, haben Sie etwas zu verkaufen, zu tau- 
schen, wollen Sie einen Club gründen? Coupon ausfüllen, 
auf Postkarte kleben oder in Briefumschlag stecken und 
abschicken. So einfach geht das. Wollen Sie das Heft 
nicht zerschneiden, können Sie den Coupon auch fotoko- 
pieren. Oder einfach den Anzeigentext uns so schicken, 
auf Postkarte oder im Brief. Aber bitte mit Druckbuchsta- 
ben oder in Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und /oder Telefonnum- 
mer sollten acht Zeilen a 28 Anschläge nicht überschrit- 
ten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater Inserenten 


kostenlos, gewerbliche Anzeigen kosten pro Zeile zu 
29 Buchstaben DM 5,00 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

DIE INSERTION IST NICHT VOM HEFTKAUF ABHÄNGIG! 
Chiffre-Anzeigen sind nicht gestattet! Wir behalten uns 
vor, Anzeigen, die gegen rechtliche, sittliche oder sonsti- 
ge Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, kein 
Rechtsanspruch auf den Abdruck in der nächsten Ausga- 
be! 

Wir behalten uns vor, Anzeigen, die nicht zum Themen- 
kreis des Heftes — Computer — gehören, nur insoweit 
zu berücksichtigen, wie es der Umfang des kostenlosen 
Anzeigenteils zuläßt. 
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NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


KOMMT _ 
REGELMÄSSIG 
ZU IHNEN 


INS HAUS 


Das unabhängige Magazin 
für Schneider-Computer 


GARANTIE! 

Sie können diesen Abo-Auftrag bin- 
nen einer Woche nach Eingang der 
Abo-Bestätigung durch den Verlag 
widerrufen — Postkarte genügt. An- 
sonsten läuft dieser Auftrag jeweils 
für zwölf Ausgaben, wenn ihm nicht 
vier Wochen vor Ablauf widerspro- 
chen wird, weiter. 


Finden Sie Ihre SCHNEIDER AKTIV nicht am Kiosk? 
Weil sie schon ausverkauft ist? Oder ‚‚Ihr‘‘ Kiosk 
nicht beliefert wurde? Kein Problem! Für ganze 60 
DM liefern wir Ihnen per Post zwölf Hefte ins Haus 
(Ausland 80 DM). Einfach den Bestellschein aus- 
schneiden — fotokopieren oder abschreiben, in ei- 
nen Briefumschlag und ab per Post (Achtung: Porto 
nicht vergessen). SCHNEIDER AKTIV kommt dann 
pünktlich ins Haus. 


FE a el U er re ET a a a >Z 
ABO-SERVICE-KARTE 


Ich nehme zur Kenntnis, Ja, ich möchte von Ihrem Angebot Ausgaben an untenstehende An- 
daß die Belieferung Gebrauch machen. schrift. Wenn ich nicht vier Wochen 
erst beginnt, wenn die Bitte senden Sie mir bis auf Widerruf vor Ablauf kündige, läuft diese 
Abo-Gebühr dem Verlag ab sofort jeweils die nächsten zwölf Abmachung automatisch weiter. 
zugegangen ist! Nanie 

Vorname 

Straße /Hausnr. 

PLZ/Ort 

Ich bezahle: 


U] per beiliegendem Verrechnungsscheck 

[] gegen Rechnung 

L] bargeldios per Bankeinzug von meinem Konto 
bei (Bank) und Ort 


Kontonummer 
Bankleitzahl 
SCHNEIDER AKTIV (steht auf jedem Kontoauszug) 
ABO-SERVICE 9/87 ETF AORRER 
EOS LEREN 1161 Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 
UNTERSCHLEISSHEIM Ünterschft _____ 987 
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PROGRANMMSERVICE 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingun- 
gen die Listings dieses Heftes auf 


U] Kassette (30 DM) [Diskette (30 DM) 


ich zahle: (Zutreffendes bite ankreuzen!) 
per beigefügten Scheck U] Schein [| 


Gegen Bankabbuchung am Versandtag U] 


Meine Bank (mit Ortsname) 

Meine Kontonummer 

Meine Bankleitzahl (steht auf jedem Bankauszug) 

Vorname Nachname 

Str./Nr. PLZ/Ort 9187 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. 
Umtausch bei Nichtfunktionieren. 


Unterschrift 
Bitte ausschneiden und einsenden an 


SCHNEIDER AKTIV 
KASSETTENSERVICE 987 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


m 
LESER WERBEN LESER 


GEWINNEN SIE EINE COMPUTER- 
UHR! Und zusätzlich eventuell 
noch ein großes Computer-Buch. 
Oder ein Paket Disketten. ODER 
AUCH EINEN COMPUTER — 
ODER EINE DISKETTENSTATION! 
Wie? Sie werben einen Abonnen- 
ten. Dann haben Sie auf jeden Fall 
schon die Computer-Uhr gewon- 
nen. Zusätzlich verlosen wir unter 
allen, die mitmachen, jeden Mo- 
nat vier weitere wertvolle Preise. 
Und alle sechs Monate gibt es ei- 
nen Hauptpreis unter allen Abo- 
Werbern zu gewinnen. Also: Mit- 
machen. Mitgewinnen. 


Ja, ich mache mit beim Abo- 
Wettbewerb. Ich habe 


Herrn /Frau 
Straße /Hausnr. 


PLZ/Ort 


als neuen Abonnenten für SCHNEI- 
DER AKTIV geworben. 


Der neue Abonnent war bisher 
noch nicht Bezieher dieser Zeit- 
schrift. 

Als Prämie erhalte ich nach Ein- 
gang des Abo-Entgeltes auf jeden 
Fall eine Computer-Uhr, wie abge- 
bildet, und nehme zusätzlich noch 
an der Verlosung des Monats so- 
wie der halbjährlichen Hauptprei- 
se teil. Mir ist bekannt, daß der 
Rechtsweg ausgeschlossen ist. 
Meinen Preis senden Sie an 


Name 

Straße /Hsnr. 

PLZ/Ort 

(Bitte ausschneiden und zusam- 


men mit der Abo-Bestellkarte links 
einsenden!) 9187 


N. 
nn 


OÖ 

3 m. W 
= 
+. | 
L 

n 7 


80 


DM 14 
ÖS 124 


v 


N 


x_ 


LISTING 


C,B8,20,08,70,88,20,07,3A,83,61,BB, 
CA,63,70 


1590 DATA 3A,AF,61,B8,20,45,7A,B8,2 


0,2F,78,88,20,10,3A;AC,61,8B9,20, 17, 
3A,B0,61 
1600 DATA B9,20,11,11,7C,15,CD,F0,7 
0,3E,01,88,C8, 11,64, 19,CD,F0,70,C9, 
3A,B0,61 
1610 DATA B8,20,34,7C,B9,20,04,7B,B 
9,28,E1,3A,B0,61,88,20,26,7C,B8,20, 
22,70,B9 
1620 DATA 20,04,7A,B9,28,CF,3A,BO,6 
1,88,20,14,7C,88,20, 10,70,88,20,0C, 
3A,B3,61 
1630 DATA B9,20,06,3A,AF,61,B9,28,B 
5,3A,AF,61,B8,20,70,7A,B8,20,32,78B, 
B8,20,0C 
1640 DATA 3A,AC,61,B9,28,5E,3A,B0,6 
1,89,28,58,3A,80,61,B8,20,08,7B,89, 
28,4E,7C 
1650 DATA B9,28,4A,3A,AC,61,B8,20,0 
4,78,89,28,40,7C,88,20,18,3A,B0,61, 
B9,28,36 
1660 DATA 3A,B0,61,B8,20,0C,7C,B8,2 
0,08,7A,89,28,28,70,B9,28,24,7A,B9, 
20,0A,7B 
1670 DATA B8,20,06,3A,AC,61,B8,28, 1 
6,3A,B0,61,88,20,13,7C,B9,20,04,7D, 
B8,28,08 
1680 DATA 7B,B8,20,07,7A,B9,20,03,C 
3,8F,70,7C,B8,20,0A,70,B8,20,06,3A, 
B0,61,89 
1690 DATA 28,EF,3A,B0,61,88,20,44,7 
C,B8,20,24,70,88,20,0C,3A,AF,61,B9, 
28,DB,3A 
1700 DATA B3,61,89,28,05,7D0,B9,20,0 
6,3A,B3,61,B8,28,CB,7A,B8,20,06,3A, 
AF,61,B9 
1710 DATA 28,C1,7D,B8,20,0A,7C,8B9,2 
0,06,3A,83,61,88,28,83,78,B8,20,0A, 
7A,B8,20 
1720 DATA 06,3A,AF,61,89,28,A5,7C,B 
8,20,10,70,B8,20,0C,3A,B3,61,8B8,20, 
06,3A,BO 
1730 DATA 61,B9,28,91,7B,B8,20,11,7 
A,B8,20,0D,3A,AF,61,89,20,07,3A,AC, 
61,88,CA 
1740 DATA 8E,6C,3A,AF,61,B8,20,59,7 
A,B8,20,14,7B,B9,20,10,3A,80,61,B9, 
20,0A,7C 
1750 DATA B9,28,1C,3A,AC,61,B9,28, 1 
6,3A,80,61,B8,20,13,7A,B9,20,0F,7C, 
B9,20,0B 
1760 DATA 7B,B9,28,04,70,B9,20,03,C 
3,81,70,7C,88,20,0F,70,89,20,08B,7A, 
B9,20,07 
1770 DATA 3A,B0,61,B9,CA,CD,70,7B,B 


8,20,11,7A,B9,20,0D,3A,AC,61,89,20, 


07,3A,BO 
1780 DATA 61,B9,CA,CD,70,3A,AF,61,B 
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9,20,66,7C,B8,20,14,3A,B0,61,B8,20, 
DE,7D,B9 

1790 DATA 20,0A,7A,B9,28,BD,3A,B3,6 
1,89, 28,87,70,88,20,22,70,89,20,0D, 
3A,B0,61 
1800 

308, DOTB DH PEB0Z A202 01, 0807420 
3A,83,61 

1810 DATA B9,CA,E9,70,7A,B8,20,24,7 
B,88,20,0D0,3A,AC,61,89,20,07,3A,B0, 
61,B9,CA 

1820 DATA E9,70,7A,B8,20,0F,78B,B9,2 
0,08,3A,B0,61,88,20,05,7C,B9,CA,CD, 
70,3A,BO 

1830 DATA 61,B9,20,52,7C,B9,20,0A,7 
D,B8,20,06,3A,AF,61,B8,28,7A,7C,BB, 
20,32,7D 

1840 DATA B9,20,06,3A,B3,61,B8,28,6 
C,3A,AF,61,89,20,04,7A,B8,28,62,3A, 
AF,61,8B8 

1850 DATA 20,08,7A,B9,28,58,7D,B9,2 
8,54,70,B8,20,0C,3A,B3,61,89,28,4A, 
3A,AF,61 

1860 DATA B9,28,44,3A,AF,61,B8,20,0 
8,7A,B8,20,04,7B,B9,28,36,3A,B0,61, 
88,20,63 

1870 DATA 7C,B8,20,10,7D0,B9,20,0C,3 
A,B3,61,89,28,22,3A,AF,61,89,28,1C, 
3A,AF,61 

1880 DATA B9,20,08,7A,B9,20,04,7B,B 
8,28,0E,7C,B9,20,28,70,B9,20,09,3A, 
B3,61,B8 

1890 DATA 20,03,C3,30,6F,7D,B8,20,0 
C,3A,83,61,89,28,F3,3A,AF,61,8B9,28, 
ED,3A,AF 

1900 DATA 61,88,20,08,7A,B9,20,04,7 
C,89,28,DF,3A,AF,61,89,20,0C,7A,B8, 
20,08,78B 

1910 DATA B9,28,01,7C,B9,28,CD,3A,A 
F,61,89,20, 1E,7A,88,20,1A,7B,B9,20, 
06,3A,AC 

1920 DATA 61,B8,28,B9,7B,B8,20,0C,3 
A,AC,61,89,28,AF,3A,80,61,89,28,A9, 
3A,AF,61 

1930 DATA B8,20,20,7A,B9,20,1A,7B,B 
8,20,0C,3A,AC,61,89,28,95,3A,B0,61, 
89,28, 8F 

1940 DATA 7B,B9,20,15,3A,AC,61,B8,2 
8,85,7A,88,20,0B,7B,89,20,07,3A,AC, 
61,B9,CA 

1950 DATA 6B,6E,3A,B0,61,B9,C2,D8,6 
F,3A,AF,61,B8,20,58,7A,B9,20,54,7B, 
B9,28,04 

1960 DATA 7C,B9,20,4C,3E,02,B8,20,0 
7,11,12,00,CD,F0,70,C9,11,07,00,CD, 
F0,70,3E 

1970 DATA 01,32,FF,61,C9,78,FE,01,C 
8,18,E2,3E,01,32,FF,61,C9,3E,02,88, 
C0,11,04 


1980 DATA 00,CD,F0,70,C9,3E,02,B8,2 39 


0,0C,11,0A,00,CD,F0,70,3E,01,32,FE, 
61,09, 11 

1990 DATA 05,00,CD,F0,70,3E,01,32,F 
F,61,C9,7C,B8,20,14,70,B9,20,10,3A, 
AF,61,B9 

2000 DATA 20,0A,7A,B9,28,BA,3A,B3,6 
1,89,28,B4,7A,B8,20, 14,78,B9,20, 10, 
3A,AF,61 

2010 DATA B9,20,0A,3A,AC,61,89,28,A 
0,7C,B9,28,9C,78,FE,01,28,26,7C,B9, 
20,31,7D 

2020 DATA B8,20,13,3A,B3,61,B8,CA,6 
B,6E,3A,B3,61,89,28,8E,3A,AF,61,B9, 
28,88, 7D 

2030 DATA B9,20,07,3A,B3,61,B8,CA,3 
2,6F,7A,BB, 20, OB, 7C, B9, 20, 07, 3A,AF, 

61,B8,CA 

2040 DATA 6B,6E,78,FE,01,28,0F,7B,B 
8,20,0B,7A,89,20,07,3A,AF,61,B9,CA, 
32,6F,3A 

2050 DATA AF,61,B9,20,47,3A,B0,61,B 
8,20,0E,7C,B9,20,0A,7A,B9,CA,OE,6F, 
7D,B9,CA 

2060 DATA 0E,6F,78,FE,01,28,0F,7A,B 
9,20,2A,7B,B8,20,07,3A,AC,61,B8,CA, 
6B,6E,7C 

2070 DATA B8,20,0B,7A,B9,20,17,3A,B 
0,61,B8,CA,6B,6E,78,FE,01,28,0B,7B, 
B9,20,07 

2080 DATA 3A,AC,61,B8,CA,32,6F,3A,A 
F,61,B8,20,0F,3A,B0,61,89,20,14,7C, 
B9,20,10 

2090 DATA 7D,B9,CA,32,6F,3A,AF,61,B 
9,20,05,7A,B8,CA,32,6F,3A,AF,61,89, 
CO,7A,B9 

2100 DATA CO,7B,B9,20,07,3A,B0,61,B 
8,CA,32,6F,3A,B0,61,89,C0,7C,88,CA, 
32,6F,C9 

2110 DATA 3A,F3,61,FE,01,28,05,3A,F 
4,61,88,C0,11,A8,61,CD,F0,70,3E,01, 
32,B9,61 

2120 DATA 3E,01,32,B8,61,3E,02,B8,C 
0,11,98,3A,CD,F0,70,3E,02,32,89,61, 
C9,3E,02 

2130 DATA B8,20,14,11,1D0,00,CD,F0,7 
0,3A,86,61,C6,01,32,86,61,3E,01,32, 
B7,61,C9 

2140 DATA 11,16,00,CD,F0,70,18,EA,C 
9,3E,02,88,20,0F,11,18,00,CD,F0,70, 
3A,B6,61 

2150 DATA C6,01,32,86,61,C9,11,1C,0 
0,CD,F0,70,18,EF,3E,02,88,20,0F, 11, 
12,00,CD 

2160 DATA F0,70,3A,B6,61,C6,01,32,B 
6,61,C9,11,16,00,CD,F0,70,18,EF,78, 
FE,01,28 

2170 DATA EA, 18,DD,2A,B4,61,19,22,B 
4,61,C9,21,00,62,CD, 1A,71,21,04,02, 


LISTING 


CD,75,BB 

2180 DATA 21,11,62,18,41,21,13,62,C 
D,1A,71,21,04,23,CD,75,BB, 21,17,62, 
18, 30,06 

2190 DATA 06,0E,0A,3E,0A,32,0F,62,3 
2,15,62,3C,32,00,62,32,12,62,34,7E, 
B9,C0,97 

2200 DATA 

3,23,34, FE Br ch, IH 7E,88,00,97,77,2 
C0,97,77 

2210 DATA C9,7E,FE,0B,C8,C6,30,C0,5 
A,BB,2B,18,F4 


CPC SCHLÄGT AMIGA! 


Wir wünschen viel Spaß beim Tippen und Spielen. 


Lassen Sie sich nicht durch den CPC überlisten, denn 
dieses Program ist so stark, daß es bei einem Test- 
spiel innerhalb unserer Redaktion sogar ein Profipro- 
gramm auf dem Amiga von Commodore gleich beim 
ersten Mal schlug! Und das will schon was heißen! 

(JE) 


PUZZLE 14-15 


Das Puzzle 14—15 ist ein Schiebepuzzle unseres Au- 
tors Rudolf Bodinger, bei dem es darauf ankommt, die 
mit Zahlen markierten Kästchen in die richtige Rei- 
henfolge zu bringen, oder ein magisches Quadrat mit 
der Konstanten 30 zu bilden. 

Wenn jemand eine Floppy angeschlossen hat, emp- 
fiehlt es sich, die Zeile 450 zu ändern. Statt “PEEK 
42239“ muß man “PEEK 40955“ eingeben. Dies ver- 
bessert dann die Anfangsgrafik. 


Mit der Tastatur im Zehnerblock, einschließlich den 
Cursor-Tasten, wird dieses Spiel gesteuert. Die einzel- 
nen Kästchen, die mit Nummern beschriftet sind, ent- 
sprechen den Tasten des Zehnerblockes. Da die Zah- 
len nur bis neun gehen, sind die Cursortasten zu Hilfe 
genommen worden. Welche Zahl auf welche Taste 
verlegt worden ist, wird im Programm erklärt. 

Mit der “DEL“-Taste können Sie sich das Magische 
Quadrat oder die Tastatur des Zehnerblockes zeigen 
lassen, um Mißverständnissen vorzubeugen. 

Falls Sie glauben, dieses Puzzle nicht lösen zu Können, 


‘ verhilft Ihnen die “CLR“-Taste zu einem Neustart. 


(JE) 
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LISTING 


ı0 2 2222 222 2.2.2222 222 22.22 2220200 
28 * PUZZLE 14 - 15 * 
38 ’ #* VON * 
a0 #* AUDOLF BODINGER * 
se ’ * FUER # 
68 ’ %* SCHNEIDER AKTIV * 
78 ° #* CPC/464/664/6128 je* 
88 ” HRHRRRRRHHHHHHHRIRIITHTEIF SEIEN 
85 


98 '#%#### Rahmen und Titelbild *##*## 
* 


95 

188 MODE 2:INK 8,8:INK 1,26:BORDER 
18:INK 1,1,1 

185 

118 FOR i=4 TO 9 STEP 5:MOVE i,i:DRA 
AWR 8,399-i1#2:DRAWA 639-i*#2,8:DRAWR 
0,-399+i#2:DRAWA -639+i*#2,8 

128 NEXT 

138 FOR i=38 TO 43 STEP 5:MOVE i,i: 
DRAAWR 8,399-1i*2:DRAAWA 639-i#2,8:DRA 

WA 8, -399+i1#2:DRAAWA -639+1#2,8:NEXT 
148 LOCATE 3,2:FOR i=2 TO 77:PRINT 
CHR$LC 127) ; :NEXT 

158 LOCATE 3,24:FOR i=2 TO 77:PRINT 
CHR$C 127) ; :NEXT 

168 FOR i=3 TO 23:FOR k=3 TO 4:L0CA 
TE k,i:PRINT CHA$( 127) ; : NEXT: NEXT 
178 FOR i=3 TO 23:FOR k=77 TO 78:L0 

CATE k,i:PRINT CHA$( 127) ; :NEXT:NEXT 
188 INK 1,26 

198 SYMBOL AFTER 32 

200 y=-288:x=158 

218 te$="PUZZLE” 

228 sd=3:wd=7:br=5:bh=19:x=160:y=-28 

®:nei=2 

238 FOR i=1 TO 6:text$=MID$( te$,i, 1 
) 

248 IF i>3 THEN 278 

258 nei=-nei-8.5:y=-y+19:x=x+58 

268 GOSUB 448:G0T0 388 

278 IF i=4 THEN nei=8:y=y+18 

288 nei=nei-98.5:y=-y-108:x=x+508 

298 GOSUB 448 

388 NEXT 

318 x=185:y=195:nei=-2 

328 te$="14-15"”:FOR i=1 TO 5:text$= 

MID$( te$,i, 1) 

338 IF i>3 THEN 368 

348 nei=nei+d.5:y=-y-18:x=x+58 

358 GOSUB 448:6G0T0 398 


368 IF i=4 THEN nei=® 

378 nei=nei+B.5:y=-y+198:x=x+58 

388 GOSUB 448 

398 NEXT £ 
a88 INK 1,26:FOR i=1 TO 3:FOR k=1 T 


0 3088:IF i/2=i\2 THEN 428 

418 INK 1,26,2:BORDER 18:60T0 438 
428 INK 1,26:BORDER 18,26 

438 NEXT:NEXT:INK 1,26:60T0 538 


448 ta=ASC( text$) 

458 FOR b=1 TO 8:byte(b)=PEEK( 48955 

+( ta-32) #8+b) :NEXT 

468 FOR c=7 TO 8 STEP -1 

478 FOR d=1 TO 8 

488 IF byte(d)<2°c THEN 588 ELSE by 

te( d) =byte( d) -2°c 

498 FOR y1=8 TO wd STEP 2:PLOT x+a* 

8*br-c*#br+d#nei, y-d*bh+y1,1:DRAWR s 

d,8:NEXT 

588 NEXT d,c 

518 RETURN 

528 ° 

538 CLEAR:CLS 

548 TAG:ORIGIN 1,1 

558 FOR i=8 TO 9 STEP 4:MOVE i,i 

568 DRAWR 8,398-1*2,1:DRAWR 638-i*2 
‚8,1:DRAWA 8, -398+( i#2), 1:DRAAWAR -63 

8+( i*#2),8,1 

578 NEXT 

588 

SIO "’#HHH# Text Fra 

680 

618 MOVE 38,358:PRINT”"Das Puzzle 14 
-15 ist eine quadratische Schachtel 
‚in der sich 15 Steine,”; 

628 MOVE 38,328:PARINT”beginnend im 
linken, oberen Feld in der Reihenfo 
lge 1-15, mit Ausnahme"; 

638 MOVE 38,298:PRINT”der Steine 15 
und 14, die vertauscht sind, befin 

den. Die erste Aufgabe”; 

648 MOVE 38,268:PRINT"besteht darin 
‚ die Steine durch Zahleneingabe so 
lange zu verschieben, bis”; 

658 MOVE 38,238:PRINT"”alle,beginnen 

d im 2ten Feld links oben, in richt 

iger Reihenfolge stehen .”; 

668 MOVE 38, 198:PRINT”"Aufgabe 2: Bi 
lden Sie ein magisches Quadrat mit 

der Konstanten 38.”; 

678 MOVE 38, 158:PAINT"”Nach Tastendr 
uck erfolgt die Veranschaulichung d 

es Puzzle in Ausgangs-”; 

688 MOVE 38, 128:PRINT”"und Endstellu 

ng von Aufgabe 1. Ein erneuter Tast 

endruck zeigt Ihnen im”; 

698 MOVE 38,98:PRINT"rechten Bild d 

as magische Qudrat.”; 

788 MOVE 238,45:PAINT"Eine Taste dr 
uecken”; 

718 CALL EBBB6 

720 

738 "##### Text loeschen ###%#% 

748 ° 

758 FOR i=12 TO 374:MOVE 12,1i:DRAWA 
616,8,8:NEXT:DRAWA 8,8,1:G0T0 798 
768 

770 "FREE Programm EUER 

7880 ° 
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TE eeeEEEEEESSE WE 


LISTING 


798 DEFINT a-z:q2=13:q3=38:p=58:p1= 

52:p2=262 

888 GOSUB 12398:G605UB 1338 

818 hi-1:G605UB 1258:G05UB 1468 

828 IF hi=1 THEN MOVE -258,-288:PRI 
NT"Ausgangsposition"”; :MOVE 58,-2B®: 
PRINT"Endposition"; :MOVE -128,-248: 
PRINT"”Eine Taste druecken”; 

838 CALL &BB86:q=8:FOR i=-155 TO 52 
:MOVE 8,i1:DRAWR 288,8,8:NEXT :DRAWR 
0,8,1 s 

840 hi=2:RESTORE 18998:G0SUB 1258:60 
SUB 1468:CALL &BBB6 

858 GOSUB 1638 

868 n=15:DIM a(n),b(n) 

878 KEY 128,"u":KEY 138,"”v":KEY 139 
. .” 

875 

888 ’*###4#%# Tastenbelegung *FHt### 

885 ” 

898 GOSUB 1888 

988 IF t$=CHR$( 127) AND ta=1 THEN R 
ESTORE 1898:0RIGIN 8,8:FOR i=95 TO 
388:MOVE 338,i:DRAWAR 278,8,8:NEXT:D 
RAWR 0,8, 1 

918 IF t$=CHA$( 127) AND ta=1 THEN h 
i=2:G0SUB 12598:6G0SUB 1468:ta=8:0RIG 
IN 78,288:G0OTO 988 

928 IF t$=CHA$( 127) AND ta=8 THEN G 

OSUB 1648 

938 GOTO 988 

948 FOR i=-155 TO 53:MOVE ®8,i:DRAWR 
208,8,8:NEXT:DRAWR 8,8,1:G0SUB 133 

L 

958 

898 

968 GOSUB 1898 

978 NEXT 

988 t$=INKEY$:IF t$=""THEN 988 

998 IF t$="u”THEN t$="198":G0T0 1878 
1888 IF t$="v"THEN t$="11":G0T0 187 

) 

1818 IF t$="w”THEN t$="12":6G0T0 197 

8 

1828 IF t$=CHA$( 242) THEN t$="13":6 

0OTO 1978 

1838 IF t$=CHA$( 248) THEN t$="14":6G 

0OTO 1878 

1848 IF t$=CHA$C243) THEN t$="15":6 

0TO 1978 

1858 IF t$=CHRA$( 16) THEN 948 

1868 IF t$=CHA$( 127) THEN 988 

1878 n=VAL(t$) :GOSUB 1898 

1888 x=8:y=8:G0TO 988 

1898 x=aln):y=b(n) :GOSUB 1118 

1188 ai=aln) :b1=b(n) :aln)=x:b(n)=y: 

RETURN 

1118 IF n>9 THEN q2=9 ELSE q2=13 
1128 IF x-p1=a1 AND y=b1 OR x+tpi=al 
AND y=b1 OR y-pi=b1 AND x=a1 OR y+ 


IF t$=CHR$( 16) THEN t$="":6G0T0 


pi=b1 AND x=ai THEN 1148 

1138 TAGOFF:PRINT CHRA$( 7) ;:TAG:GOTO 
988 

1148 FOR i=1 TO 3:MOVE x+i,y+i 

1158 DRAWRA 8,p-i*2,8:DRAWR p-i*#2,B8, 

8:DRAWR ®,-(p-i*2) ,8:DRAWA -(p-i*2) 
‚0,8 

1168 NEXT 

1178 MOVE x+qg2,y+q3:PRINT n;:x=8:y= 

[) 

1188 x=al:y=b1:31=8:b1=98:FOR i=1 TO 
3:MOVE x+i,y+i 

1198 DRAWAR 8,p-i*2,1:DRAWR p-i*#2,B, 
1:DRAWA ®,-(p-i*2) ,1:DAAWA -(p-i*2) 
‚8,1 

1288 NEXT 

1218 MOVE x+q2,y+q3:PRINT n; 

1228 RETURN 

1238 ORIGIN 42,359:G0OSUB 1278 

1235 

1237 "s##3## rechte Schachtel ####*# 
1239 i 
1248 RETURN 

1258 ORIGIN 335,359:GOSUB 1278 

1268 RETURN 

1278 FOR i=1 TO 25:MOVE i,-i 

1288 DRAWR p2-i*2,8:DRAWAR 8,-(p2-i* 

2) :DAAWR -(p2-i*2) ,8:DRAWR ®,p2-i*2 
1298 NEXT :RETURN 

1380 

1318 ’%*# Steine in linke Schachtel 

#4 

1328 

1338 ORIGIN 78,288:q=®8:q1=1:t=1 
1348 FOR i=1 TO 3:MOVE q+ti,qi+i 
1358 DRAWR 8,p-i*2:DRAWR p-i*2,8:DR 

AWR 8,-(p-i*2) :DRAWA -(p-i*2) ,B:NEX 
T 

1368 IF t>9 THEN q2=9 ELSE IF t<1® 
THEN q2=13 

1378 MOVE q+q2,qi+qg3:IF t=14 THEN 
t1=15:PAINT t1;:GOTO 1488 

1388 IF t=15 THEN t1=14:PRINT t1;:6 

0OTO 1488 

1398 PRINT t; 

1488 t=t+1:q=q+52:IF q>156 THEN q=® 
:q1=q1-52 


1418 IF t>15 THEN RETURN 

1428 GOTO 1348 

1438 

1448 ’*# Steine in rechte Schachtel 


1450 

1468 ORIGIN 363,288:t=1:q1=1:IF hi= 
1 THEN q=52 ELSE q=8 

1478 FOR i=1 TO 3:MOVE q+i,q1+i:IF 
hi=2 AND t=9 THEN 1498 

1488 DRAWR 8,p-i*2:DAAWR p-i*2,8:DR 
AWA ®,-(p-i*2) :DRAWA -(p-i*2),® 
1498 NEXT 
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LISTING 


1588 IF t>9 AND hi=1 THEN q2=9 ELSE 
IF t<18 AND hi=1 THEN q2=13 

1518 IF hi=1 THEN MOVE q+q2,q1i+q3:6 

0TO 1558 

1528 READ z:IF z>9 THEN q2=9 ELSE q 

2=13 

1538 IF t=9 THEN 1568 

1548 MOVE q+q2,q1i+qg3:PRINT z;:GOTO 
1568 

1558 PRINT t; 

1568 t=t+1:q=g9+52:IF q>156 THEN q=@ 
:q1=q1-52 


1578 IF t>15 AND hi=1 THEN 1598 ELS 
E IF t=17 THEN 1598 

1588 GOTO 1478 

1598 RETUAN 

1688 ” 

1618 ’## Eingabe-Tastatur zeichnen 
r 

1628 

1638 ORIGIN 8,8:FOR i=28 TO 98:MOVE 


28,i1:DRAAWR 60898,8,98:NEXT 
1648 ORIGIN 8,8:FOR i=95 TO 388:MOV 
E 338,i1:DRAAWA 278,8,8:NEXT:DRAWR ®&, 
0,1 
1658 ORIGIN 368;,388:RESTORE 1938:x= 
0:y=8 
1668 FOR i=1 TO 7:y=y-35:IF y=-148 
THEN y=-155 
1678 FOR k=1 TO 3:x=x+35:IF x>105 T 
HEN x=35 
1688 READ z:IF z>9 THEN MOVE x-4A,y 
ELSE MOVE x,y 
1698 IF z=®8 THEN 1748 
1788 IF z=16 THEN MOVE x+6,y:PRINT 
CHR$( 241) ;:6G0T0O 1738 
1718 IF z=17 THEN MOVE x+6,y:PRINT 
"5";:GOTO 1738 
1728 PRINT z; 
17308 MOVE x-8,y-22:DRAWR ®,35:DRAWR 
35,8:DRAWR ®8,-35:DRAWR -35,®8 
1748 NEXT:NEXT:ORIGIN 78,280 
1758 MOVE -35,-228:PRINT "CLR-Taste 
=Ausgangsposition DEL-Taste=Ansich 
t mag. Quadrat oder Tastatur”; 
1768 ta=1:RETURN 
1770 
1789 ’####% Koordinaten der Steine 
in Ausgangsposition ARERE 
1798 
1888 ORIGIN 78,288:41=156:b1=-155:a 
(1)=8:b( 1) =1:3(2)=52:b( 2) =1 
1818 al 3) =184:b( 3) =1:3a(4)=156:b(4)= 
1:a(5)=8:b(5) =-51:a(6) -52:b( 6) =--51 
1828 al 7) =184:b6( 7) =-51:a(8)=156:b(8 
=-51:3(9) =8:b( 9) =-183:al 18) =52:bf 1 
0) =-1803 
1838 a( 11) =184:b( 11) =-183:al 12) =156 
:b( 12) =-183: al 13) =@:b( 13) =-155: 
1848 al 14) =184:b( 14) =-155:al 15) =52: 


b( 15) =-155 

1858 RETURN 

1868 

1878 ’###%# Aufbau Magisches quadrat 
a2 2.20 

1888 ° 

1898 DATA 13,1, ‚6, 18,14,2,5,9,16,12, 
11,7,3,15,8, a, r) 

1988 R 

1919 ’##### Tastaturbild #F###% 

1928 

1938 DATA 8,14,8,13,17,15,8,16,0,7, 
8,9,4,5,6,1,2,3,18,11,12 


SEREEEERTE 


NEN KRASHSRES 


HABEN SIE 
FRAGEN ? 
RUFEN SIE AN 


SCHNEIDER aktiv 
HOTLINE 


Montags 


19.00 Uhr 
Tel: 089/18 40 24 


15.00 
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LISTING 


JAMES 
BOND 


Doktor No hat wieder zugeschlagen. Er hat 25 Atom- 
bomben in seinen Besitz gebracht, die er in 5 verschie- 
denen Höhlen versteckt hat. Dank der großartigen 
Arbeit des britischen Geheimdienstes ist es gelungen, 
diese Höhlen ausfindig zu machen. 

Alles weitere scheint ein Kinderspiel zu sein, wäre da 
dieser Doktor No nicht. Denn der hat seine Bomben 
so gesichert, daß sie ganz gut versteckt und nicht ent- 
deckt werden können. Aber für solche scheinbar un- 
möglichen Aufgaben ist ja James Bond da. Ob er 
(Sie) dieses Problem lösen und die Bomben entschär- 
fen kann? 


Ir = 


Hier beginnt nun Ihr Auftrag. Fliegen Sie mit einem 
Hubschrauber in die Höhlen hinein und bergen Sie 
die Atombomben. Aber achten Sie auf Ihren Sauer- 
stoffvorrat. Und auf die vielen Fallen, die Dr. No für 
Sie bereithält. So treten plötzlich Magnetfelder auf, 
die Ihren Hubschrauber zum Absturz bringen sollen 
und riesige Roboterspinnen behindern Ihren Flug. 
Außerdem sind noch einige andere Überraschungen 
in den Höhlen verborgen. 


HIER NOCH EINIGE TIPS 


Da Treibstoff gespart werden muß, schaltet sich der 
Motor ab, wenn die Steuerung nicht bedient wird. 
Auf glatten Flächen können Sie gefahrlos landen 
(aber nicht auf dem Wasser). Während des Spiels ge- 
langen Sie mit der Copy-Taste zum Titelbild zurück. 
Durch den Feuerknopf kann der Hubschrauber in 
der Luft angehalten werden. 

(JE) 
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LISTING 


ID REEEUEIHIESEIEIESEIEIE SE SEE SE SEITE IE TEE TE IE IE IESE 


20 ’* JAMES BOND #* 
30 ’* VON * 
40.'%* M.SCHLARMANN * 
50 ’* FUER #* 
60 ’* SCHNEIDER AKTIV * 
70 ’* CPC/464/664/6128 je* 


BO RAR SE SEES SE SE SEIEN III 


100 DIM YS( 20) ,YS2( 20) :KEY DEF 66,0 
‚0,0 

110 KEY O,CHR$( 143) 

120 GOSUB 550:6G0SUB 1390:G0SUB 1430 
:GOSUB 410:G05UB 610 

130 CALL EA020,&8C0:anz=0:ANZ2=0:SCO 

RE=0:LEVEL=1:LEBEN=9:ARESTORE 2130 
140 GOSUB 1510 

150 IF level=-6 THEN GOSUB 1880:60T0 
130 

160 ERASE ys2:DIM ys2(20) :READ AN:F 

OR w=1 TO AN:READ XS:READ YS2(XS):N 

EXT :NEU=1 

170 IF auswahl=0 AND leben=9 AND le 

vel=1 THEN CLS:POKE &B295,0:PEN 10: 

LOCATE 1,10:PRINT"G 00D LUC K, 

":LOCATE 3,13:PRINT"M r Bon d!": 


FOR wa=1 TO 6000:NEXT:POKE &B295,25 
5 

180 GOSUB 800 

190 DEF FNCHAR=PEEK( EAO10) 

200 neu=0:pause=0:ZEIT=2:ch=32:x=1: 
y=-3:INK 6,0:X1=X:Y1=Y:HUB=240 :MAGNE 
T=0:PE=5:TI=638 


FOR WA=1 TO schw*#100/2:NEXT:PEN 
PE:LOCATE X1,Y1:PRINT CHR$(CH) ; 
220 IF J<>O THEN CALL EBCA7:SOUND 1 
‚1000, 30+schw#7,3,0,0,30 

230 IF X=0 AND ANZ<>5 THEN X=1 ELSE 
IF x=0 THEN level=level+1:GOSUB 14 

80:IF auswahl=0 THEN GOTO 150 ELSE 

G60TO 130 

240 LOCATE X,Y:CALL EA000:CH=FNCHAR 
:PEN 1:PRINT CHR$( HUB) ; 

250 GOTO 1050 

260 J=JOY( 0) :TES$=INKEY$ 

270 IF TES$=CHRA$( 224) THEN GOTO 130 

280 IF j<>O AND J<16 THEN IF pause= 
1 THEN pause=0:IF score>4 THEN scor 

e=score-5:PEN 8:LOCATE 7,25:PRINT S 

CORE; 

290 FOR WA=1 TO schw*100/2:NEXT 

300 Z=Z+1:IF Z>=ZEIT THEN GOTO 1230 

310 GOTO 1300 

320 Z1=Z1+1:IF Z1>=20 THEN Z1=0:PLO 

T TI,27,0:DRAWR 0,-6,0:PLOT TI+4,27 


‚0:DRAWR 0,-6,0:TI=TI-8:IF TI<120 T 


HEN FLAG=1:G0TO 1100 
330 IF J=1 THEN X1=X:Y1=Y:Y=Y-1:60T 
0 210 


340 IF J=2 THEN X1=X:Y1=Y:Y=Y+1:60T 

0 210 

350 IF J=4 THEN X1=X:Y1=Y:X=X-1:HUB 

=241:G0T0O 210 

360 IF J=8 THEN X1=X:Y1=Y:X=X+1:HUB 

=240:60T0 210 

370 IF J>15 THEN pause=1 

380 WHILE INKEY$<>"":WEND 

390 IF pause<>1 THEN IF J<>4 AND j< 

>8 AND j<>1 AND j<>2 THEN LOCATE X, 

Y+1:CALL &EAO00:IF FNCHAR<>66 THEN X 
1=X:Y1=Y:Y=Y+1:G0OTO 210 

400 GOTO 260 

410 ° FARBEN 

420 ' wre 

430 INK 1,24:INK 2,15: Hubschrauber 
/ Hoehlenwand 

440 INK 3,2: "WASSER 

450 INK 4,10: °SPINNE 

460 INK 5,26: °SPINNENFADEN 

470 INK 6, 12: ’MAGNETISCHES FELD 

480 INK 7,14: ATOMBOMBEN 

490 INK 8,11: ’LUFTANZEIGE 

500 INK 0,0:BORDER 0 

510 INK 9,6: SCORE 

520 INK 11,0: SCHRIFT IM WINDOW (GA 

ME OVER) 

530 SPEED INK 10,80:INK 10,0,24 

540 RETURN 

550 ” MC - CODE FUER GET CHAR 

560’ ARRRHEHRIHHIHIHIRIHIIHHIE SEHEN 

570 SYMBOL AFTER 256:MEMORY E5FFE 
580 KEY 0,"MODE 2:5YMBOL AFTER 0:CA 

LL &BCO2:PEN 1"+CHA$( 13) 
590 RESTORE 600:FOR adr= 

0967 : 
:RETURN 

600 DATA 205,96, 187,50,16, 160,201, 
0,0,0,0 


40960 TO 4A 
READ wert :POKE adr,wert:NEXT 


610 ” ZEICHENDEFINITION 

670 ' WHRRRRIHIHIHIHIEIEIHIE SEIFE 

630 SYMBOL AFTER 0 

640 SYMBOL 66,255,223,187,247,255,2 
54,221,191 

650 SYMBOL 67,247,93,127,42,46,10,1 
0,8 

660 SYMBOL 68,16,16,84,84,126,218,2 
55,239 

670 SYMBOL 69,255,63,27,126,63,247, 
125,255 

680 SYMBOL 70,252,184,255,220,112,2 
52,184, 255 

690 SYMBOL 71,128,64,32,16,8,4,2,1 
700 SYMBOL 72,1,2,4,8,16,32,64, 128 
710 SYMBOL 73,0,128, 192, 126,255, 126 
‚192,128 

720 SYMBOL 74,8,8,8,8,8,8,8,8 

730 SYMBOL 75,8,8,107,20,62,73,20,0 
740 SYMBOL 76,255,255,255,255,255,2 gg 
55,255, 255 
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750 SYMBOL 
20,62 

760 SYMBOL 
‚40,124 
770 SYMBOL 
0,0 

7BO SYMBOL 
155, 102 
790 RETURN 
800 ° HOEHLE ZEICHNEN 

BIO * munmaueeueeuene 

820 MODE O:IF NEU<>1 THEN 990 

830 anz2=0:anz=0:FOR w=1 TO 5:xm(w) 
=0: ym( w) =0:NEXT 

840 FOR in=1 TO 15:INK in,O:NEXT:ER 
ASE YS:DIM YS(20)::FOR y=1 TO 23 

850 LOCATE 1,y 

860 READ A$ 


870 FOR x=1 TO 20:z$=MID$([A$,x, 1) 


240,127,8,28,186,249,62, 
241,254,16,56,93, 159, 124 
242,0,0,255,255,255,255, 


243,54,91,79,162,233,69, 


860 IF z$>"A" AND z$<"G” THEN PEN 2 
890 IF z$=CHA$( 76) THEN PEN 3 

900 IF Z$=CHR$(75) THEN PEN 4 

910 IF Z$=CHA$(74) THEN PEN 5 

920 IF Z$=CHA$(71) OR Z$=CHR$C?72) T 
HEN PEN 6 

930 IF Z$="I" THEN PEN 7? 

940 PRINT Z$; 

950 NEXT 

960 NEXT 

970 POKE &8295,0:PEN 9:LOCATE 1,24: 


PRINT"AIR:"; :POKE &B295,255:PRINT 5 
TRING$( 16,242) ; :POKE &B295,0:PEN B: 
LOCATE 1,25:PRINT"”SCORE:”":LOCATE 7, 
25:PRINT SCORE; :PEN 1:POKE 6B295,25 
5:LOCATE 16,25:PRINT CHA$(240)”:";: 
LOCATE 18,25:PAINT LEBEN; :POKE &B29 
5,0 

980 CALL &A030,&C000,&5FFF,6G4000:NE 
U=0:CL5:G0OSUB 410 

990 POKE 6E6B295,0 

1000 FOR xs=1 TO 20:ys(X6)=ys2(xs): 
NEXT 

1010 CLSE:PEN 10:LOGATE 4,13:PRAINT”G 
A VE "LEVEL:LOCATE 4, 15:PRINT"GET 
READY1”:FOR WA=-1 TO 6000:NEXT:CALL 
GAO30,&5FFF,&6C000,64000:PEN 8:LOCA 
TE 1,25:PAINT"SECORE:":LOCATE 7,25:P 
RINT SCORE; :PEN 1:POKE &B295,255:L0 

CATE 16,25:PRINT CHA$(240)":"; 

1020 anz=anz2:FOR w=1 TO anz:LOCATE 
xm(w) ,ym{w) :PRINT” "; :NEXT:LOCATE 
18,25:PRINT LEBEN; :RETURN 

1030 ” TEST AUF CRASH 

1040 7 sunununnuneuee 

1050 FLAG=0:IF (CH>65 AND CH<71) OR 
CH=-75 OR CH=76 THEN FLAG=-1 

1060 IF (CH=-71 OR CH=-72) AND MAGNET 
=1 THEN FLAG=1 

1070 IF CH-71 OR CH-=-72 THEN PE=-6 EL 

SE PE=5 


1080 IF CH=73 THEN CALL &EBCA?:FOR W 
=50 TO 10 STEP -1:50UND 1,W,1,4:NEX 
T:SCORE=SCORE+20:ANZ=ANZ+1:xm( anz) = 
x:ym( anz)=y:PEN 8:LOCATE 7,25:PRINT 
SCORE; :CH=32 

1090 IF FLAG=O THEN 260 

1100 

1110 leben=leben-1:anz2=anz 

1120 PEN 1:LOCATE x,y:PRINT CHR$( 24 

3) ;:CALL EBCA7:SOUND 1,500,70,7,0,0 
‚5:SOUND 2,0,70,7,1,0,7:FOR w=7 TO 
0 STEP -1:50UND 1,500,50,w,0,0,5:50 
UND 2,0,50,w,1,0,7:NEXT 

1130 IF ANZ=5 THEN LEVEL=LEVEL+1:6GO 
SUB 1480:IF auswahl=0 THEN GOTO 150 
ELSE GOTO 130 

1140 PEN 9:IF LEBEN=-1 THEN IF ausw 
ahl=0 THEN LOCATE X,Y:PRINT "” ";:GO 
TO 1160 ELSE GOTO 130 

1150 3=0:G60T0 170 

1160 POKE E6B295,0:CALL EBCA7:WINDOW 
#1,6,14,10,14:PAPER #1,5:PEN #1,11 
:CLS #1 

1170 a$="G A M E":Y=2:60SUB 1190:A$ 
="0 V E R”:Y=4:G605UB 1190 

1180 FOR WA=1 TO 1000:NEXT:WHILE IN 
KEY$<>"":WEND:CALL &BBO6:POKE &8295 
‚255:G0TD 130 

1190 FOR ANZ=1 TO LENCA$) STEP 2 
1200 Z$=MID$LA$,ANZ, 1) 

1210 SOUND 1,100,2,4:L0CATE #1,ANZ+ 
1,Y:PARINT #1,Z$; 

1220 FOR WA=1 TO 100:NEXT:NEXT:RETU 
RN 

1230 ° MAGNETFELDER 
1240 ' MRRRHR 
1250 Z=0 

1260 IF MAGNET=O THEN 
=20:INK 6, 12:G0T0 1030 
1270 IF MAGNET=1 THEN 
=10:INK 6,0:G0T0 1300 
1280 ” SPINNE BEWEGEN 
1290 7 SUESEEHEHEEEEH 
1300 IF YS(X)=DO THEN 320 

1310 MY=YS(X) 

1320 IF YSCX)>Y THEN LOCATE X,YS(X) 
:PRINT” ”;:YSCX)=YSCXK) -1 

1330 IF YSCX)<Y THEN PEN 5:LOCATE X 
‚YStX) :PRINT"”J”;:YSCX)=YSCK +1 

1340 LOCATE X,YS({X) :CALL &EA000 

1350 IF FNCHAR=32 OR FNCHAR=74 OR F 
NCHAR=240 OR FNCHAR=241 THEN 1360 E 
LSE YSCX)=MY 

1360 PEN 4:LOCATE X,YS(X) :PRINT"”K”; 
1370 IF FNCHAR=240 OR FNCHAR=241 TH 
EN FLAG=1:G0TO 1100 

1380 GOTO 320 

1390 ” Bankwechsel 

1400 ° zueauuereere 


1410 RESTORE 1420:FOR adr=40992 TO 


MAGNET=1:ZEIT 


MAGNET=0:ZEIT 
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40999:READ wert:POKE adr,wert :NEXT: 
RETURN 


1420 DATA 221,126,0,205,8, 188,201, 
0,0,0,0: 

1430 ° Bild speichern 

1440 * SUCHEN 

1450 ° CALL EAO30,quelle,ziel,laeng 
e 

1460 RESTORE 1470:FOR adr=6A030 TO 
&AO30+25:READ wert:POKE adr,wert:NE 
XT:RETURN 

1470 DATA Edd,64e,60,6dd,646,61,&dd 
‚66e,62,&6dd,6&66,63,&dd,&65e,64,&dd,& 

56,65,6b,69,6eb,69,63,&Ged,&b8,&6c9 

1480 ”° Vorhandene Luft als Bonus zu 
den Punkten zaehlen 

1490 *  HHRRARHRRRRHRSEIHIHRIRIIHIE RER IE 
1500 ti=ti+4:FOR t=ti TO 120 STEP - 
1:PLOT T,27,0:DRAWR 0,-6,0:S0UND 1, 

t-80,3,5:POKE &B295,0:score=score+1 
:PEN 8:LOCATE 7,25:PRINT SCORE; :NEX 

T:POKE &B295,255:RETUAN 


1510 ° Titel und Auswahl des Spielm 
odus 
1520 7 RBHRHRHREIRIIHIHISESE ERREICHEN 
Mut 
1530 


MODE 0O:PEN 2:FOR y=1 TO 25:PRI 
NT STRING$( 20,66) ; :NEXT 

1540 FOR Y=8 TO 19:L0OCATE 4,y:PRINT 
STRING$( 14,32) ; :NEXT 

1550 LOCATE 5,8:PRINT STRING$( 13,"C 
");:LOCATE 5,19:PRINT STRING$( 13,”D 
"); i 
1560 FOR y=B TO 19:L0OCATE 4,y:PRINT 
"F";:LOCATE 18, y:PRINT"E"”; :NEXT 
1570 PEN 9:LOCATE 6,10:POKE &B295,0 
:PAINT"JAMES BOND"; :PEN 8:LOCATE 7, 
13:PARINT"(C) 1987"; :LOCATE 10,15:PR 
INT"by"”; :LOCATE 5, 17:PRINT”"M. Schla 

rmann”; 

1580 WHILE INKEY$<>"":WEND 

1590 CALL &BBO6 . 

1600 FOR y=9 TO 18:LOCATE 5,y:PRINT 
STRING$( 13, 32) ; : NEXT 

1610 auswahl-1:LDCATE 5,11:PRINT CH 

A$( 24) ; "TRAINING" ;CHR$( 24) :LOCATE 5 
‚14:PRINT "REGULAR GAME" 

1620 A$=INKEY$ 

1630 IF A$="" THEN 1620 

1640 IF A$=CHRA${ 13) OR JOY(O)=16 TH 

EN 1670 

1650 IF AUEWAHL=1 THEN AUSWAHL=0:LO 

CATE 5,11:PRINT "TRAINING": LOCATE 5 
‚14:PRINT CHRA$( 24) ; "REGULAR GAME";C 

HA$( 24) ELSE AUSWAHL=1:LOCATE 5,14: 

PRINT "REGULAR GAME":LOCATE 5,11:PR 

INT CHA$( 24) ; "TRAINING" ; CHR${ 24) 
1660 GOTO 1620 

1670 IF AUSWAHL=UO THEN GOTG 1780 
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1680 FOR y=9 TO 18:L0CATE 5,y:PRINT 
STRING$( 13, 32) ; : NEXT 

1690 LOCATE 5, 13:PRINT"cave number? 
“" 
1700 
EHLE 
1710 
700 
1720 
1730 
1740 
1750 
1760 


LOCATE 7,15:INPUT "( 1-5) >”,HO 
IF HOEHLE<1 OR HOEHLE>5 THEN 1 


level=hoehle:leben=2 

IF HOEHLE=1 THEN RESTORE 

HOEHLE=2 THEN RESTORE 

HOEHLE=3 THEN RESTORE 

HOEHLE=4 THEN RESTORE 2850 
1770 HOEHLE=S THEN RESTORE 3090 
1780 FOR y=9 TO 18:LOCATE 5,y:PRINT 
STRING$( 13, 32) ; : NEXT 

1790 a$( 0) ="NOVICE” :A$( 1) ="AMATEUR" 
:A$( 2) =S"EXPERT” :A$( 3) ="MASTER"” 

1800 LOCATE 8, 10:PRINT CHRA$( 24) ; A$( 

0) ;CHA$( 24) ; :LOCATE 8, 12:PRINT A$(1 

);:LOCATE 8, 14:PRINT A$(2); :LOCATE 

8,16:PRINT A$(3); 

1810 y=10:schw=3 

1820 LOCATE 8,y:PRINT CHR$( 24) ;a$(3 

-schw) ;CHR$( 24) ; 

1830 a$=INKEY$ 

1840 IF a$="" THEN 1830 

1850 IF a$=CHR$( 13) OR JOY(0)=16 TH 
EN 1870 

1860 LODCATE 8,y:PRINT a$( 3-schw) :y= 
y+2:IF y>16 THEN GOTO 1810 ELSE sch 

w=schw-1:60T0 1820 

1870 POKE &B295, 255 :RETURN 

1880 POKE &B295,0:CALL &BCO2:BORDER 
26:INK 0,26:INK 2,26:INK 1,0:MODE 
1 

1890 A$="THANKS, " :X2=50:Y1=320:GOSU 

B 1950:A$="Mr Bond” :X2=30:Y1=170:6G0 

SUB 1950 

1900 FOR X=50 TO 600 STEP 10:PLOT X 
‚230, 1:DRAWR 6,0:DRAWR 0,-6:DRAWR - 

6,0:DRAWR 0,6:NEXT 

1910 FOR X=30 TO 600 STEP 10:PLOT X 
‚80,1:DRAWR 6,0:DRAWR 0,-6:DRAWR -6 
‚0O:DRAWR 0,6:NEXT 

1920 FOR X=0 TO 630 STEP 10:PLOT x, 
398, 1:DRAWR 6,0:DRAWR 0,-6:DRAWR -6 
‚0:DAAWR 0,6:PLOT x,8,1:DRAWR 6,0:D 

RAWR 0,-6:DRAWR -6,0:DRAWR 0,6:NEXT 
1930 FOR Y=398 TO 10 STEP -i0:PLOT 

0,Y,1:DRAWR 6,0:DRAWA 0,-6:DRAWR -6 
‚0O:DRAWR 0,6:PLOT 630,Y,1:DRAWR 6,0 
:DAAWA 0,-6:DRAWR -6,0:DRAWR 0,6:NE 

xXT 

1940 GOSUB 2030:FOR wa=1 TO 

XT:GOSUB A1I0:POGKE 68295, 255: 
1950 X1=X2:L06CATE 1,1:PEN 2: 

":LOCATE 1,1: 


2110 
2370 
2610 


3000:NE 
RETURN 
PRINT” 
PRINT A 
$; 
1960 FOR y=398 TO 382 STEP -2 


LISTING 


1970 x1=X2:y1=y1-10 2450 DATA "F DEFC J EB" 
1980 FOR x=0 TO (B*#LEN(A$))*2 STEP 2460 DATA "FDDEFC G K EB" 
2 2470 DATA "BBBFC 6 EB" 
1990 x1=x1+10 2480 DATA "BCCC DDDDBLLLLBBB" 
2000 IF TEST(x,y)<>O THEN PLOT x1,y 2490 DATA "B DEBBBBLLLLBBB" 
1,1:DRAWR 6,0:DRAWR 0,-6:DRAWR -6,0 2500 DATA "B DBEBBBBBBBBBBBB" 
:DRAWAR 0,6:G0T0O 2010 2510 DATA "B CCCCECECCECCCCBBB" 
2010 NEXT:NEXT 2520 DATA "B G JG ICBB" 
2020 RETURN . 2530 DATA "B G JG EB" 
2030 RESTORE 2070 2540 DATA "BDDDDDDDD J DDDBDDEB" 
2040 READ NO,la:IF NO=-1 THEN RETUR 2550 DATA "BFCCCCECC J CCCCCCEB" 
N 2560 DATA "BFI H JG IEB" 
2050 SOUND 1,NO,1la#25,7 2570 DATA "BF H K G DEB" 
2060 GOTO 2040 2580 DATA "BFD H G DEBB" 


2070 DATA 159,3,213,1,190,3,213,1,1 2590 DATA "BBBBDDDDDBBBDDDBBBBB" 
19,1,127,1,142,1,159,1,142,3,213,1, 2600 DATA "BBBBBBBBBBBBBBBBBBBB" 
119,1,127,1,142,1,159,1,142,2,213,2 2610 DATA 3,6,9,12,4,11,21 


‚106,8 2620 DATA "BBBBBBBBBBBBBBBBBBBB" 
2080 DATA 95,2,106,1,159,1,106,2,11 2630 DATA "” CCCCCCCECCCCCCECCCEB" 
9,2,127,2,190,1,159,1,127,2,142,2 2640 DATA " G JJHH HH EB” 


2090 DATA 127,4,119,1,127,1,142,1,1 2650 DATA "BDDDDDDDB JKDDDDD EB" 


59,1,142,4,127,1,142,1,159,1,169,1, 2660 DATA "BFCBCCCBF J EBBBF EB" 
159,8 2670 DATA "BF C J CC J EBBFC EB" 
2100 DATA -1,-1 2680 DATA "BF J J EBFC EB" 
2110 ” DATEN FUER DIE HOEHLEN 2690 DATA "BFDDDJ DD J EFC IEB" 
2120 ° BRRRRRIRRRRRRERIENSHII INN 2700 DATA "BBFCCK EF J EF DBBB" 
2130 DATA 3,4,12,8,8,17,7 2710 DATA "BBF EF J EFG EBBB" 
2140 DATA "BBBBBBBBBBBBBBBBBBBB" 2720 DATA "BBF EF J EF GEBBB" 
2730 DATA "BBFI EF J CCG CCBB" 
2150 DATA "CCCCCCCCCEBBBBBBBBBB" 2740 DATA "BBBLLLBBF J G EB" 
2750 DATA "BCBLLLBBF J D G CB" 
2160 DATA "” J EBBBBFCCCCEB" 2760 DATA "B CBBBBBF J FD GIB" 
2170 DATA "BBBDDDDJ EBBFCC J EB" 2770 DATA "B CEBBFC J CCBLLLBB" 
2180 DATA "BBBBBBFJ EBFC JIEB" 2780 DATA "BI EBFC UJ ELLLBB" 
2190 DATA "BBCCCBFJ EFC J EB" 2790 DATA "BBD EFC DJDB EBBBBB" 
2200 DATA "BF J EFJ EC K EB” 2800 DATA "BFCHCC BFJEF CEBBBB" 
2210 DATA "BFIJ EFKE EB" 2810 DATA "BF BBFJEF  CFCEB"” 
2220 DATA "BF JCC E DBLLLBB" 2820 DATA "BF EBFKEF H C EB" 
2230 DATA "BF J E DEBLLLBB" 2830 DATA "BBF DBBBFDEF D HIEB"” 
2240 DATA "BF J DD HC CCCCCBBB" 2840 DATA "BBBBBBBBBBBBBBBBBBBB" 
2250 DATA "BF K EFH CBB" 2850 DATA 1,6,14 
2260 DATA "BF EF - D HCE" 2860 DATA "BBBBBBBBBBBBBBBBBBBB" 
2270 DATA "BF EBLLLLLLF NH IE" 2870 DATA ” CCCCCCCCCCCCCCCECECEB" 
2280 DATA "BF EBLLLLLLBBH BDE" 2880 DATA "” H G EB" 
2290 DATA "BF EBLLLLLLBBF EBB" 2890 DATA "BDDDDDDDDDDDDDDDD EB" 
2300 DATA "BFI HEBBBBBBBBBF EBB" 2900 DATA "BBBBBBBBBBBBBBBBF EB" 
2310 DATA "BF H EBFCCCCCCCEC EBB" 2910 DATA "BFCBBBBBBBBBBECEF EB" 
2320 DATA "BFH EBFG 6 EBB" 2920 DATA "BF CBBBBBBBBFC EF EB" 
2330 DATA "BBLLLBBFI 6 G BEBB" 2930 DATA "BF CCCBBFCCC IEF EB" 
2340 DATA "BBLLLBBBBDDD DBDEBBB" 2940 DATA "BFI J EBFI DBF EB" 
2350 DATA "BBBBBBBBBBBBBBBBBBBB" 2950 DATA "BFDBDJ EBFDD BFC EB" 
2360 DATA "BBBBBBBBBBBBBBBBBBBB" 2960 DATA "BFCCCJ EBFCCG FC EB" 
2370 DATA 2,11,20,16,9 2970 DATA "BF J EBF BF EB” 
2380 DATA "BBBBBBBBBBBBBBBBBBBB" 2980 DATA "BF BJ EFC FCGDHEB"” 
2390 DATA "CCCCC H EBBBBBBBB" 2990 DATA "BF BFK CC BDF F EB" 
2400 DATA " HI HEBBBBBBBB" 3000 DATA "BF EC EFC BF EB" 
2410 DATA "B H H EBBBBBBBB"” 3010 DATA "BF E EF EF EB" 
2420 DATA "F DDBDD EBFCCCBBB” 3020 DATA "BF ELLLLLLLBFIBBF EB" 
2430 DATA "F EBBBF EFC J CBB” 3030 DATA "BF ELLLLLLLBBBBBC EB" 
2440 DATA "F DEFCCC CC J IEB" 3040 DATA "BF CCCCCCCCCCCcCcC EB” 


60 


3050 DATA 
3060 DATA 
3070 DATA 
3080 DATA 
3090 DATA 
3100 DATA 
3110 DATA 
3120 DATA 
3130 DATA 
3140 DATA 
3150 DATA 
3160 DATA 
3170 DATA 
3180 DATA 
3190 DATA 
3200 DATA 
3210 DATA 
3220 DATA 
3230 DATA 
3240 DATA 
3250 DATA 
3260 DATA 
3270 DATA 
3280 DATA 
3290 DATA 
3300 DATA 
3310 DATA 
3320 DATA 


& Menschen in Not brauchen Hilfe: zuverlässig, 
x schnell, wirksam. Die beiden kirchlichen Hilfs- 
| werke nehmen ihren Auftrag ernst. 


y FO 73 Deutscher Cantasverhand, Konto 202 
KIN Postgiro Karlsruhe oder Banken und Sparkassen. 


Fes1 Diakonisches Werk Konto 502, Postgiro Stuttgart oder 
WER Banken und Sparkassen. 


LISTING | sch 


"BF G HH DEB” 
"BBLLLLLLLLB DDDDBBBB" 
"BBLLLLLLLLBIBBBBBBBB" 
"BBBBBBBBBBBBBBBBBBBB" 
3,4,8,8,11,17,191 
"BBBBBBBBBBBBBBBBBBBB" 
" CCECCEBCCCCCECCCEBBB" 
" JEBJ) HE CCCB" 
"B JEBJ HIE IB" 
"BJ EBJ H BB BDELLB" 
"BDDJ EBJH CC CCEBLB" 
"BBFJ EBJD H CEBB" 
"BCFK CCJELLLBDD JCEB" 
JELLLBBF J EB" 
"B DJELLLLLF J EB" 
"BLLLLLFKELLLLLF K EB" 
"BLLLLLF ELLLLLF DHCB" 
"BLLLLLF ELLLLLBBF B" 
"BBBBBBF ELLLLLBFC BB" 
"BBBBBBF EBBBBBBFI EB" 
"BBFCCFC CBBBBBBBLLLB" 


"BFC C EBBBBBBBLLB" 
"BF CCCCBBBBBBB" 
"BF HCECCCEBB" 
"BF DD DD H CEB" 
"BFI EF EFH DDD CB" 


"BFDDEF DEFD.DEBFD IB" 
"BBBBBBBBBBBBBBBBBBBB" 


NIS Sy 


‚NOT IN AFRIKA 


Kennwort » 


N; 
KILO) 
IE 
N 
os, fd 


HYVPOTHEKEN- 
TILGUNG 


Wenn Sie nicht zu den Millionären gehören, so über- 
legen Sie sich vor dem Kauf eines Hauses bestimmt, 
wie teuer nun eine Hypothek eigentlich kommen 
wird und ob man sich das Ganze überhaupt leisten 
kann. Die Berechnungen der Laufzeit, der Auszah- 
lungsquote und der effektiven Zinsen sind jedoch 
recht kompliziert und verwirren den Interessenten, 
der ja meist nur einmal mit dieser Materie zu tun hat. 
Dabei ist ein exakter Vergleich der verschiedenen 
Angebote unendlich wichtig, geht doch die Ersparnis 
in die Tausende. Das Programm ‚‚Tilgung einer Hypo- 
thek“ unseres Autors Manfred Hallhuber ist Ihnen 
bei dieser Entscheidung behilflich. 


EINFACHE DATENEINGABE 


Der Darlehensbetrag, den Sie benötigen, ist Ihnen ja 
bekannt. Den aktuellen Zinssatz erfragen Sie am 
besten bei Ihrem Kreditinstitut oder entnehmen ihn 
aus dem Wirtschaftsteil der Zeitungen. Die Tilgung be- 
wegt sich zwischen ] und 2 Prozent und ist ebenfalls 
mit Ihrem Kreditinstitut abzusprechen. 
Das Programm berechnet nach den Eingaben dann 
sehr schnell die zu zahlenden Zins- und Tilgungsbe- 
träge. Auf Wunsch erfolgt die Ausgabe auf dem Bild- 
schirm oder auf dem Drucker. 
Wenn Sie mit Ihrer Bank sprechen und einen neuen 
Zinssatz, zum Beispiel um 0,5% niedriger, vereinbaren, 
können Sie jetzt durch Vergleichsrechnung feststel- 
len, wieviel Geld Sie durch zähes Verhandeln bei ei- 
ner Laufzeit von 10, 20 oder 30 Jahren sparen kön- 
nen. 
Der zweite Teil des Programmes gibt auf Wunsch eine 
Rest-Schuld-Tabelle aus. In den Spalten 2 und 3 der 
Tabelle werden die Zinsen bzw. Tilgungen ausgege- 
ben, die in den einzelnen Jahren zu leisten sind. In 
der Spalte 4 kann man sehr schön sehen, welche Lei- 
stungen jeweils insgesamt bis zu dem maßgebenden 
Jahr an die Bank zu zahlen sind. In der Spalte 5 
wird dann die jeweilige Restschuld aufgeführt. 
Auch ist anhand der Tabelle gut zu sehen, daß in den 
ersten Jahren fast keine Tilgung erfolgt, sondern die 
gezahlten Raten fast nur für die Zinsen verbraucht 
werden. In den letzten Jahren der Gesamtlaufzeit ver- 
schiebt sich dieses Verhältnis dann immer mehr zugun- 
sten der Tilgung. 
Für die Abtipper noch ein kurzer Hinweis: Das ‘“*“- 
Zeichen finden Sie auf der oberen Tastenreihe, ziem- 
lich weit rechts auf der Taste mit dem englischen 
Pfund-Zeichen. 
Viel Spaß bei der Planung der Finanzierung Ihres 
Hauses. Schneider aktiv wünscht Ihnen dazu immer ei- 
nen vollen Geldbeutel. 

(JE) 
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LISTING 


1. RRHRRRSHRRESISBSIESHISEIESEIESESSESESESESESEIENE 
2% HYPOTHEKEN-TILGUNG * 
3 # VON * 
a '* MANFRED HALLHUBER * 
5 # FUER #* 
6 '* SCHNEIDER AKTIV * 
7.8 CPC 464/664/6128 Jje* 
BB ORRRHRRRRHRHRISHEIHRIHHISHRIHIHIEIEIEIEN 


10 MODE 1:CLEAR:CALL &BCO2 

20 EVERY 5,2 GOSUB 1050 

30 PRINT CHR$( 24) 

40 PRINT”*#*# Tilgung einer Hypothe 

k by H.M. #332" 

50 PRINT CHR$( 24) :PRINT 

60 PRINT"Ausgabe auf dem Printer? ( 

3/n)” 

70 CALL &BBO6 

80 IF INKEY(45)=0 THEN ausg=B ELSE 

ausg=O 

90 LOCATE 1,4:PRINT CHRA$( 20) 

100 CALL &BBO3 

110 INPUT”Hoehe der Hypothek 

= "h 

120 INPUT" Jaehrlicher Zinssatz 

130 INPUT”Jaehrliche Tilgung in % 

= ".t 

140 z2=z 

150 PRINT 

160 PRINT"Wieviele Tilgungsperioden 
pro Jahr?" 

170 PRINT 

180 PRINT CHA$( 24) :PRINT”Hinweise b 

eachten!!”:PAINT CHR$( 24) 


190 PRINT” bei monatlicher Rueckzah 
lung = 12;"” 
200 PRINT” bei 3-monatlicher Rueckz 
ahlung= 4;"” 
210 PRINT” bei 6-monatlicher Rueckz 
ahlung= 2;"” 
220 PRINT" bei jaehrlicher Rueckz 
ahlung= 1;"” 


230 PRINT:CALL 

240 INPUT"Also 
Jahr =";p 

250 LOCATE 1,9:PRINT CHRA$( 20) 

260 PRINT#0,"Tilgungsperioden pro J 

ahr = "+56TRA$(p) 

270 REM Berechnung von Zins + Tilgu 

ng pro Periode 

280 z=z/100:q=z/p:x=q*h:a=((t/100)/ 

p)*h 

290 s=1+qg:n=LOG((x+a) /a)/LOG(s) 

300 n=ROUND(n, 3) 

310 PRINT: PRINT:PARINT#0O, "Abrechnung 
sperioden= ";n 

320 REM Umrechnung der Abrechnungsp 

erioden in Jahre,Monate, Tage 

330 j=n/p:v=j-INT( j) :ta=360*v 

340 m=INT( ta/30) 


&6BBO3 
Tilgungsperioden pro 


350 ta=ta-(m#30) 
360 GOSUB 550 
370 PRINT#(ausg) ,"Das sind"”+STR$( IN 
TC3J))+" Jahre, "+STRA$lm)+" Monate, "+ 
STA$CINTLta))+" Tage” 
380 PRINT#( ausg) 
390 PRINT#(ausg) ,‚"Zinsen 1. 
e = ";ROUND (x,2) 
400 PRINT#( ausg) ,"Tilgung 1. Period 
e = ";ROUND( a,2) 
410 PRINT#( ausg) ‚"Annuitaet pro Per 
iode = ";ROUND((x+a) ,2) 
420 PRINT#(ausg) ‚"gesamte RAueckzahl 
ung = ";ROUND( (x+a)*n,2) 
430 PRINT#(ausg) ,‚"davon an Zinsen 
= ";(ROUND( (x+a)*#n,2)-h) 

440 PRINT:IF ausg=B THEN PRINT#8,5ST 
RING$( 76,”*") 
450 PRINT:PRINT:PRINT"Nochmal eine 
Berechnung” +CHR$( 24) +” ( 3j/n) "+CHRA$ 
(24) 
460 PRINT: PRINT"oder" :PRINT 
470 PRINT”Ausgabe einer Rest-Darleh 
ens-Tabelle”+CHR$( 24) +"( r) "+CHR$[ 24 
) 
480 PRINT 
490 PRINT"Taste J oder N oder AR dru 
ecken!” 
500 CALL &BBO3:CALL &BBO6 
510 IF INKEY(46)=-0O THEN 980 
520 IF INKEY(45)=0 THEN 10 
530 IF INKEY(50)=0 THEN 610 
540 GOTO 500 
550 PRINT#( ausg) ,"Hoehe der Hypothe 
k = "sh 
560 PRINT#(ausg) ,‚"”Jaehrl. Zinssatz 

= ":z2 
570 PRINT#(ausg) ,‚"Jaehrl.Tilgung in 
% = ";t 
580 PRINT#(ausg) ,‚"Tilgungsperioden 
pro Jahr = "+STR$(p) 
590 PRINT#(ausg) ,‚"Abrechnungsperiod 
en= ";n 
600 RETURN 
610 REM Berechnung der Rest-Darlehe 
ns-Tabelle 
620 IF ausg=0 THEN mo=2:MODE( mo) 
630 anui=ROUND( (x+a),2) 
640 zm=z2/100/p 
650 rest=h 
660 PRINT#A( ausg) ; 
670 PRINT#ACausg) ,"” 1 2 

3 4 
PRINTA( ausg) 
PRINT#( ausg) ,"Jahr 
Tilgung 
! Restdarlehen” 
tilg=rest:zj=0 
FOR i=1 TO p 


Period 


680 
690 Zinsen 


Zahlungen summiert 


_LISTING 


720 zj=zj+trest*zm 


730 rest=rest+trest*zm-anui 

740 IF rest>O THEN GOTO 770 

750 rest=0 

760 GOTO 780 

770 NEXT i 

780 jahre= jahre+1: suma=suma+ROUND( ( 


zj+t(tilg-rest)),2) 

790 tabelle$=" ":frei$=5TRING$( 19,” 
a 

800 tabelle$=STRA$( jahre) +LEFT$( frei 

$,7-LEN( STR$( jahre) ) ) +STA$( ROUND( zJ 
‚2)) 

810 tabelle$=tabelle$+LEFT$(Lfrei$,2 
1-LEN( tabelle$) ) +STA$( ROUND( (tilg-r 

est) ,2)) 

820 tabelle$=tabelle$+LEFT$(frei$,3 

3-LEN( tabelle$)) +5TR$( ROUND( suma, 2) 

) 

830 tabelle$=tabelle$+LEFT$(frei$,5 

5-LEN( tabelle$) ) +STA$( ROUND( rest, 2) 

) 

PRINT#( ausg) ‚tabelle$:tabelle$= 


sum=-sum+zj 

IF rest>O THEN GOTO 700 

870 PRINTA( ausg) 

880 PRINT#( ausg) ,‚"Laufzeit "jahre-1 
" Jahre"12*i/p" Monate" 

890 PRINT#( ausg) ,"Summe aller Zinse 
n = "+5TR$CARDUND( sum, 2)) +" DM."+" G 
esamte Rueckzahlung = "”+STRA$( ROUND( 
suma,?2)) 

900 PRINT#( ausg) 

910 IF ausg-B THEN PAINT#8,STAING$( 

76, ".") 

920 PRINT CHRA$( 24) 

930 PRINT"Weiter mit Tastendruck" 

940 PRINT CHR$( 24) 

950 CALL &BBO3 

960 CALL &6BBO06 

970 GOTO 10 

980 CLS:PRINT"Wirklich das Programm 
beenden? 

990 PRINT:PRINT"Das Programm wird g 

eloescht!!" 

1000 PRINT CHR$( 24) 

1010 PARINT"Taste J oder N druecken"” 
1020 PRINT CHR$( 24) 

1030 CALL &BB06 

1040 IF INKEY(45)=0O THEN CALL 60 EL 

SE GOTO 10 

1050 IF ausgabe=8 THEN RETURN 

1060 IF INKEY$<>"" THEN WHILE INKEY 
$<>"":WEND:WHILE INKEY$="":WEND 
1070 RETURN 

1080 END 
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LISTING 


ANORGANIK 


Chemie findet nicht nur dann statt ‚wenn es 

knallt und stinkt“, sondern hat auch viel mit Mathe- 
matik zu tun. Und die fällt nicht jedem leicht, der 
ansonsten mit diesem Schul- und Studienfach recht 
zufrieden ist. Schneider aktiv präsentiert die Rettung: 
Das Chemieprogramm ‚„‚Anorganik“ von Steffen 
Kloppenburg dient zur Berechnung und Umrechnung 
von Konzentrationen bei Lösungen, Titrationen, Säu- 
ren, Basen und Löslichkeiten. Es kann zum bequeme- 
ren und schnelleren Ausführen dieser Rechnungen in 
der Schule, im Studium oder im Labor eingesetzt 
werden. „Anorganik“ ist vollständig in Basic geschrie- 
ben, damit der Anwender leichter den Aufbau und 
die Funktion des Programms nachvollziehen und 
eventuell eigenen Bedürfnissen anpassen kann. Das 
Programm ist durch eine Menüsteuerung sehr einfach 
zu bedienen. 


EINFACHE MENÜFÜHRUNG DURCH 
VIER PROGRAMMTEILE 


Die Zeilen 100 — 150 enthalten einen kurzen Vor- 
spann, von dem man durch Tastendruck ins Haupt- 
menü gelangt. Dieses befindet sich in den Zeilen 
180 — 270 und stellt dem User 4 Programmteile zur 
Verfügung: Konzentrationsberechnungen von Lösun- 
gen, Auswertung von Titrationen, Berechnung von 
Löslichkeiten und pH-Werten. Die einzelnen Menü- 
Ban werden durch Tastendruck angewählt. 

er Programmteil „Konzentrationen von Lösungen“ 
beginnt mit einem Menü, das die Optionen ‚Lösun- 

en ansetzen“ und „Lösungen umrechnen“ bietet. 

er Punkt „Lösungen ansetzen“ dient zur Berech- 
nung der zum Ansetzen bestimmter Lösungen benö- 
tigter Stoffmengen. Dabei können Volumen und 
Konzentrationseinheit beliebig sein. Die zur Auswahl 
stehenden Einheiten stehen in einem Untermenü. 
Für die Berechnung mit der Einheit mol/l wird in 
einem Unterprogramm ab Zeile 2420 die Molmasse 
aus der Summenformel ermittelt. Bei den Einheiten 
*%*“ und “ppm‘ (parts per million) wird vorausgesetzt, 
daß Wasser als Lösungsmittel eingesetzt wird. 
Beispiel: 
250 ml 5%ige NaCl-Lösung werden 12.5 g Kochsalz 
benötigt. 
Für 1000 mi 0,01 molare Natriumsulfadlösung 
sind 142,048 nötig. 
Im Programmteil „Lösungen umrechnen“ werden 
Konzentrationen von einer Einheit in die andere um- 
gerechnet. 


Beispiel: 

5%ige NaCl-Lösung entspricht einer 0.835546 molaren 
Lösung. 

Eine Lösung von 0.0000015 g KOH pro Liter ent- 
spricht einer Lösung von 15 ppm. 

Mit dem Programmpunkt ‚‚Titrationen“ lassen sich 
Neutralisations- und Redoxtitrationen auswerten, die 
zur Bestimmung der Konzentration unbekannter Lö- 
sungen dienen. Dabei kann man mit Hilfe des Ver- 
brauches der bekannten Eichlösung (Titer) die Kon- 
zentration der unbekannten Lösung (Vorlage) errech- 
nen. Als Equivalent bezeichnet man dabei die Wertig- 
keit des Stoffes (bei Neutralisationen Anzahl der 
Protonen oder Hydroxidionen pro Molekül; bei 
Redoxtitrationen die Abgabe von Elektronen auf bei- 
den Seiten der Reaktionsgleichung). Sollte die Kon- 
zentration des Titers in einer anderen Konzentration 
als mol/l bekannt sein, wird automatisch der Pro- 
grammteil „Lösungen umrechnen“ angesprungen. 
Danach kehrt das Programm wieder zurück. 

Beispiel: 

Bei der Neutralisation von 30 ml einer unbekannten 
HCI-Lösung sind 60 ml 2molare NaOH nötig. Die 
unbekannte Lösung ist 4 molar. 

Das Programmteil „‚Löslichkeiten“ dient zum Um- 
rechnen zwischen Löslichkeit (in g/l) und Löslich- 
keitsprodukt (in mol/l). 

Beispiel: 

Es lösen sich maximal 0.00163 g Silberchlorid pro 
Liter Wasser. Das entspricht einem Löslichkeitspro- 
dukt von 1.7*10*-10 mol pro Liter. 

Der Programmteil „pH-Werte“ ermöglicht die Be- 
rechnung von pH-Werten, pks- bzw. pkb-Wert und 
Konzentration der Säure oder Base aus den beiden 
anderen Werten. Der pks-Wert gibt die Bereitschaft 
einer Säure Protonen abzugeben, der pkb-Wert die 
einer Base, solche aufzunehmen, wieder. - 

Beispiel: 

0.001 molare Essigsäure hat den pH-Wert 4. 

Der pks-Wert beträgt 5. 


Anmerkung der Redaktion: 


Wir haben das Programm ‚‚Anorganik“‘ so gut getestet, 
wie es uns möglich war. Gerade in solchen Program- 
men machen sich Tippfehler aber besonders unange- 
nehm bemerkbar, weil das Programm augenscheinlich 
korrekt abläuft, unter Umständen aber fehlerhaft 
rechnet. Wir raten deshalb zu größter Sorgfalt bei der 
Eingabe und bitten Sie, die Werte auch noch einmal 
zu überprüfen. (TB) 
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Ä LISTING 


10 RR RHRRSHRRHISHIESIBIHIHIHIEISERESE NER 
20 ’# ANORGANISCHE CHEMIE * 
30 °’# VON # 
40 ’* STEFFEN KLOPPENBURG * 
so ’*# FUER * 
60 ’* SCHNEIDER AKTIV * 
70 ’* CPC 464/664/6128 je* 


BO "HFHFREREER EUER IE IA IE 


MODE O0 
LOCATE 5,4:PRINT"KLOPPENBURG-" 
LOCATE 7,6:PRINT"SOFTWARE"” 
LOCATE 5, 11:PRINT"praesentiert" 
140 LOCATE 1,16:PRINT"Anorganische 
Chemie" 

150 a$=INKEY$:IF a$=""THEN 150 

160 SYMBOL AFTER 93:5YMBOL 94,618,& 
18,618,618,67E,63C,&18: ’Indexpfeil 
170 help=0:DIM k$(8) :DIM K1$(8) 

180 MODE 1:CLS 

190 LOCATE 3,5:PRINT"Anorganische c 
hemie : Menue" 

200 LOCATE 3, 6: PRINT"======= 


210 LOCATE 3,8: PRINT"Konzentationen 
von Loesungen LE e 
220 LOCATE 3, I ELAN SL entaan 
A a un e." 
230 LOCATE 3, 12: :PRINT"Loeslichkeite 
n. . EL 
240 LOCATE 3, 14: PRINT"pH-Werte 
ö Per u Gr Co 


250 LOCATE 3,17:PAINT"Ihre Wahl 
. >" 

260 a= VAL( INKEY$) : DN a GOTO 290, 133 
0, 1510, 1850 

270 GOTO 260 

280 
290 MODE 1:CLS:LOCATE 3,5:PRINT"Loe 
sungen" 

300 LOCATE 3,6:PRINT"=========" 

310 LOCATE 3,8:PRINT"” Fr anse 
tzen . . . RR e- 

320 LOCGATE 3, 10: air Loesungen umr 
echnen . . Fa 

330 LOCATE 3, 12: PAINT"zurueck ins H 
auptmenue . . . . .„. : 3” 

340 LOCATE 3,15:PRINT"Ihre Wahl . 
Be ee er near ae an er er de 

350 a=VAL( INKEY$) :0ON a GOTO 380, 750 
‚180 

360 GOTO 350 

370 '======================= 

380 MODE 2:LOCATE 3,5 

390 PRINT"Geben 56ie die Einheit fue 
r die Konzentration ihrer Loesung a 
n- 5° 

400 LOCATE 3,6:PRINT"-------------- 


===== === 222 ==2=oomoom= 


410 LOCATE 4,8:PRINT"”gramm / Liter 
ET 1" 
420 LOCATE 4,10:PRINT"”mol / Liter 
A Ba a Dan, ur Kar la Aa Lay suite dar Ne 
430 LOCATE 4, I2= PRINT"ppm .... 
a  - 3" j 
440 LOCATE 4,14:PRINT"% ....n. 
: RR a ee acer a ee a 
450 LOCATE 4,16:PRINT"zurueck ins U 
ntermenue . »- 2 2 2 2 2 2 2 2 2.0. 
= Yo 
460 LOCATE 4,18:PAINT"zurueck ins H 
re ee en a 
sea 


470° LOCATE 4,21:PAINT"Ihre Wahl . 

. u une Sale ger er a ar ce us Ye 

480 a=VAL( INKEY$) :ON a GOSUB 500,50 

0,500,500,290, 180 

490 GOTO 480 

500 CLS:GOSUB 2370 

510 k$( 1)="Gramm/Liter":k$( 2) ="mol/ 

Liter”:k$( 3) ="ppm” :kK$([ 4) ="%"” 

520 LOCATE#2,1,3:PRINT#2,”"Geben Sie 
die Formel des zu loesenden Stoffe 

san :"” 

530 INPUT#2," "‚r$ 

540 PRINT#2,"Geben Sie das vorgegeb 

ene Volumen in Millilitern an :" 

550 INPUT#2,"” "‚vlsg 

560 PRINT#2,"Geben Sie die Konzentr 

ation in ";k$(a);"” an :"” 

570 INPUT#2," “R 

580 DON a GOSUB 600, 660,690, 720 

590 ’---- g/l 

600 gs=-kK*vlsg/ 1000 

610 PRINT#2:PRINT#2,"Zum Ansetzen v 

on ";vlsg;"ml Loesung sind ";gs;"”g"” 

620 PRINT#2,f$;” noetig."” 

630 LOCATE#2,15,25:PRINT#2, "weiter 
: bitte irgendeine Taste druecken 

640 a$=INKEY$:IF a$=""GOTO 640 ELSE 
380 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 


’---- mol/l 
GOSUB 2430 
gs=- mm#k#v1sg/1000:G0T0 610 
ppm 
gs=-k*tvlsg/1E+09 

GOTO 610 

T SPERREN % ER TEEN, 

gs=k#v1lsg/ 100 

GOTO 610 

’====Loesung umrechnen=-======== 
CLS:MODE 2 
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LOCATE 5,1: :PAINT"Konzentratione 39 


LISTING 


n umrechnen" 
770 LOCATE 4,2:PRINT"=======--=---- 


7B0O LOCATE 3,5: Pa in ppm 
F- 1" 
790. LOCATE 3,7:PRINT"”ppm in mol/ 
3 Na ae ee, Ten 
a 2" 
800 LOCATE 3,9: PRINT"moL/1 in g/l 
ur a" 
810 LOCATE 3,11:PRINT"”g/1 in mol 
IE 8, 2 ah a a a u er ne oa al 
FR - a" 
820 LOCATE 3,13:PRINT"g/l in %. 
FT 5" 
830 LOCATE 3,15:PRINT"”X% in g/l 
PEN 6” 
840 LOCATE 3,17:PRINT"mol/l in %. 
ee g® 
850 LOCATE 3,19:PAINT”% in mol 
VL. 282 8: or mr Ber nr a a a ee 
8 


860 LOCATE 3,21:PRINT"zurueck ins H 
auptmenue . .... x... 
PN ee EL O0 - | 

870 LOCATE 3,24:PRINT"Ihre Wahl . . 


u . - . . . . . . “ . “ . 


er 2 
880 a=VAL( INKEY$) :IF a<1 OR a>9 THE 
N 880 
890 IF a=9 GOTO 180 
900 CLS:MODE 2:605UB 2370 
910 PARINT#2,"”"Geben Eie bitte die Fo 
rmel des zu loesenden Stoffes an :” 
920 INPUT#2,” ".r$ 
930 k$( 1) ="mol/1”:k$( 2) ="ppm” :k$( 3) 
="mol/1"”:K$(4)="g/1":K$(5)=-"g/1":K$ 
(6)-"% ":K$C7)="%":K$C8) =-"mol/1"” 
940 kK1$( 1) ="ppm" :K1$( 2) =-"mol/1":K1$ 
(3) ="g/1”":K1$(4) ="mol/1”:K1$[5)="% 
":K1$(6)=-"g/1":K1$[7)="mol/1":K1$(8 
) u Au 
950 PRINT#2,"Geben 56ie en. die Ko 
nzentration in ";k$(a);” ae 
960 INPUT#2,” "K 
970 ON a GOTO 990, 1060, 1100, 1150,11 
90, 1220, 1250, 1290 
980 ’----mol/l in ppm---- 
990 GOSUB 2430 
1000 me=k*mm*# 1000000 
1010 PRINT#2,"Eine Loesung von ";k; 
k$la);"” ”;f$;” entspricht einer Loe 
sung von ";me;k1$(a);”."” 
1030 LOCATE#2, 15,25:PRINT#2, "weiter 
: irgendeine Taste druecken"” 


1040 
1045 
1050 
1060 
1070 
1080 


a$=INKEY$: IF a$=""THEN 1040 

IF help=1 THEN RETURN ELSE 750 
’---ppm in mol/l-------- 

GOSUB 2430 

me=k/( 1000000*mm) 

GOTO 1010 

1090 ’--mol/1l in g/1l--------- 

1100 GOSUB 2430 

1110 me=k*mm 

1120 me=k'*mm 

1130 GOTO 1010 

31140 g/l in mol/1l------ 

1150 GOSUB 2430 

1160 me=k/mm 

1170 GOTO 1010 

1180 "----- g/lin % 
1190 me=k/10 
1200 GOTO 1010 
1210 ’---- % 
1220 me=kK#10 
1230 eo 1010 
1240 % in mol/l------ 
1250 GOSUB 2430 

1260 me=kK*#10/mm 

1270 GOTO 1010 

1280 ’----- mol/l in % 
1290 GOSUB 2430 

1300 me=k*mm/ 10 

1310 GOTO 1010 

1320 ’==== Titrationen 
CLS:MODE 2 

GOSUB 2370 
LOCATE#2,5,2:PARINT#2,"Titratio 


in g/l 


LOCATE#2,4,3:PRINTf2, "======== 


1370 PRINT#2,"Equivalent (Wertigkei 
t) des Titers :":INPUT#2,et 

1380 PRINT#2,"Konzentration in mol/ 
1 ( Sollte diese in einer anderen 
Ein-heit bekannt sein, bitte nur di 
e >ENTER<-Taste druecken ) 

1390 INPUT#F2," "‚kKt$:IF Kt$=""T 
HEN help=1:6G05SUB 750:kt=me:GOTO 141 
1) 

1400 kt=VAL(kKt$) 

1410 PRINT#2,"Benoetigtes Titervolu 
men in ml :":INPUT#2,vt 

1420 PRINT#2,"Equivalent (Wertigkei 
t) der Vorlage :":INPUT#2,ev 

1430 PRINT#2,"Summenformel des Stof 
fes in der Vorlage :":INPUT#2,f$ 
1440 PRINT#2,"”Volumen der Vorlage i 
n ml :":INPUT#2,vlsg 

1450 k=kt#vt#et/(ev#vlsg) 
1460 PRINT#2:PRINT#2,"Die 
esung war ";k;"molar." 
1470 LOCATE 25,25:PRINT"weiter : ir 
gendeine Taste druecken"” 


":f$;"-Lo 
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LISTING 


1480 a$=INKEY$:IF a$=""THEN 1480 
1490 GOTO 180 

1500 ’==== Loeslichkeiten ==== 

1510 CLS:MODE 2 

1520 LOCATE 5,2:PRINT”"Loeslichkeite 
n" 

1530 LOCATE 4,3:PARINT"”============= 


1540 LOCATE 3,5:PAINT”"Umrechnung - 

Loeslichkeit in Loeslichkeitsproduk 

Er: Sri 

1550 LOCATE 3,7:PRINT"Umrechnung - 

Loeslichkeitsprodukt in Loeslichkei 

U... ren 

1560 LOCATE 3,10:PRINT"Zurueck ins 

Hauptmenue . .....2.. 
a ee 

1570 LOCATE 3,13:PARINT”"Ihre Wahl . 
a a ar ae ter ÜBER 

1580 a$=INKEY$:IF a$=""THEN 1580 

1590 a=VAL(a$) :CLS:ON a GOTO 1610, 1 

730, 180 

1600 ’Loeslichkeit in Loeslichkeits 

produkt 

1610 GOSUB 2370 

1620 PRINT#2,” Umrechnung von Loesl 

ichkeit in Loeslichkeitsprodukt” 
1630 PRINT#2,"===================== 
1640 PRINT#2:PRINT#2,"Formel des Sa 

lzes :":INPUT#2,f$ 

1650 PRINT#2,"Loeslichkeit in g/l : 

":INPUT#2,k 

1660 GOSUB 2430 

1670 me=k/mm 

1680 PRINT#2:PRINT#2,"Das Loeslichk 

eitsprodukt von ";f$;” betraegt ";m 

e;"mol/1.” 

1690 LOCATE 25,25:PRINT"weiter : ir 

gendeine Taste druecken"” 

1700 a$=INKEY$:IF a$=""THEN 1700 

1710 GOTO 1510 

1720 ’Loeslichkeitsprodukt in Loesl 

"ichkeit 

1730 GOSUB 2370 

1740 PRINT#2,"” Umrechnung von Loesl 

ichkeitsprodukt in Loeslichkeit" 
1750 PRINTf2,"=========22-2 222 
1760 PRINT#2:PRINT#2,"Formel des 5a 

lzes :":INPUT#2,f$ 

1770 PRINT#2,”"Loeslichkeitsprodukt 
:":INPUT#2,k 

1780 GOSUB 2430 

1790 me=k’mm 

1800 PRINT#2:PRINT#f2,"Die Loeslichk 

eit von ";f$;" betraegt ";me;"g/1." 
1810 LOCATE 25,25:PRINT"weiter : ir 

gendeine Taste druecken" 


1820 a$=INKEY$:IF a$=""THEN 1820 
1830 GOTO 1510 

1840 ’===== pH- und pks/pkb-Werte 
1850 CLS:MODE 2 

1860 LOCATE 5,5:PRINT"”pH und pks/pk 
b-Werte” 

1870 LOCATE 4,6:PRINT"”=======-===.2= 


1880 LOCATE 3,8:PARINT”"Berechnung vo 

n pH- und pks/pkb-Werten aus der Ko 

nzentration . . . :1" 

1890 LOCATE 3, 10:PRINT"Berechnung d 

er Konzentration aus pH- und pks/pk 

b-Werten . . . . . :2" 

1900 LOCATE 3, 12:PRINT"zurueck ins 

Hauptmenue . .....0.0.0.0% 
EL rer, er er iA wer 

1910 LOCATE 3,15:PAINT"Ihre Wahl . 

8 FETT: de’ 

1920 a=VAL(INKEY$) :ON a GOTO 1940, 1 

940,180 

1930 GOTO 1920 

1940 CLS:MODE 2:G0SUB 2370 

1950 PRINT#2,” pH- und pks/pkb-Wert 


1960 PRINT#2 , N z=====2====22==2=o=momemee 


1970 PRINT#2,"Wird eine saure oder 

eine alkalische Loesung eingesetzt 
1980 PRINT#2," ( s/b ) ?"” 

1990 a$=INKEY$ 

2000 IF a$="s"OR a$="S5"THEN a$(l 1)=-" 

Saeure"”:a$( 2)="pks”:GOTO 2030 

2010 IF a$="b"OR a$="B"THEN a$l 1)=" 
Base ":a$(2)="pkb":GOTO 2030 

2020 GOTO 1990 

2030 PRINT#2,"Geben Sie bitte die F 

ormel der ";a$(1);"” an :":INPUT#2,f 

$ 

2040 DON a GOTO 2050, 2290 

2050 PRINT#2,"Geben Sie bitte die K 

onzentration der ”";a$(1);” in mol/l 


2060 PRINT#2,"an (Wenn diese in ein 
er anderen Einheit angegeben ist,” 
2070 PRINT#2,"bitte nur die >ENTER< 
-Taste druecken.) :"”:INPUT#2,Kk$ 
2080 IF k$=""THEN help=1:G0SUB 750: 
k=me:help=0:G60T0 2130 

2090 k=VAL(K$) ' 
2100 PRINT#2,"Soll der pH- oder ";a 
$(2);"-Wert berechnet werden ?"” 
2110 INPUT#2,b$:IF b$="pH"”THEN 2130 
2120 IF b$=a$( 2) THEN 2210 ELSE 2110 
2130 PRINT#2,"Geben Sie bitte den ” 
;a$(2);"-Wert an :":INPUT#2,pk 

2140 ph=(pk-LOG10(K))/2 

2150 IF a$="b"OR a$="B"THEN ph=14-p 
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2160 PRINT#2,"Der pH-Wert dieser Lo 

esung betraegt "”;ph;"”.” 

2170 LOCATE 35,25:PRINT"weiter : ir 

gendeine Taste druecken"” 

2180 a$=INKEY$:IF a$=""THEN 2180 

2190 GOTO 1850 

2200 ’----pK-Werte----- 

2210 PRINT#2,"Geben Sie bitte den p 

H-Wert an :":INPUT#2,ph 

2220 pk=LOG10(k) +2#ph 

2230 IF a$="b"OR a$="B"THEN pk=14-p 

k 

2240 PRINT#2,"Der ";a$(2);"-Wert be 

traegt ";pk;"”.” 

2250 LOCATE 35,25:PRINT"weiter : ir 

gendeine Taste druecken"” 

2260 a$=INKEY$:IF a$=""THEN 2260 

2270 GOTO 1850 

2280 ’----Konzentrationen------ 

2290 PRINT#2,"Geben Sie bitte den p 

H-Wert an :":INPUT#2,ph 

2300 PRINT#2,"Geben Sie bitte den "” 

;a$(2);"-Wert an :":INPUT#2,pk 

2310 IF a$="b"OR a$="B"THEN ph=14-p 

h 

2320 k=10*(pk-2#ph) 

2330 PRINT#2,"Die Konzentration der 
";f$;” betraegt ";k;"mol/l." 

2340 LOCATE 35,25:PRINT"weiter : ir 

gendeine Taste druecken" 

2350 a$=INKEY$:IF a$=""THEN 2350 

2360 GOTO 1850 

2370 WINDOW#1,1,20,1,25 

2380 PRINT#1,"Vor der Eingabe 
ndexen bitte die #-Taste ohne 
IFT<druecken."” 

2390 PRINT#f1,"Dabei ist unbedingta 
uf die Gross- undKleinschreibung 
derElementsymbole zuachten."” 
2395 PRINT#1,"Bei der Eingabe vonK 
omplexen ist aufKlammern zu verz 
ich-ten."” 

2400 WINDOW#2,23,80,1,25 

2410 RETURN 

2420 ’'=====Molmassenbestimmung == 
2430 fF=LEN( F$) :mm=-0:hf$=r$ 

2440 e$=LEFT$ChF$, 1) :h$=MID$Chf$,2, 
1):f=f-1:IF f<1 THEN 2460 

2450 
THEN 
2460 


vonI 
>5H 


e$=e$+h$: f=f-1 

GDSUB 2550 

2470 hf$=RIGHT$ChF$, f) 

2480 IF LEFT$CHF$,1)="""THEN i=VAL( 
MID$Chf$,2,1)) ELSE 2500 

2490 am=am#i: f=f-2:hf$=RIGHT$CHF$, f 
) 

2500 mm=-mm+am: IF f=D THEN RETURN 
2510 IF ASC(LEFT$CHF$,1))>64 AND AS 
CCLEFT$CHF$,1))<91 GOTO 2440 


IF ASC(h$)>96 AND ASC(h$)<123 


2520 CLS:LOCATE 5, 10:PRINT”"Sie habe 
n ihre chemische Formel falsch eing 
egeben." 

2530 FOR a=1 TO 1000:NEXT:GOTO 180 
2540 ’----- Atommassen------- 

2550 RESTORE:FOR e=1 TO 73 

2560 READ ep$,am:IF e$=ep$ THEN RET 
URN 

2570 NEXT 

2580 DATA”H”,1.008,"He”,4.003,"Li", 
6.94,”"Be",9.013,”8",10.82,"C”, 12.01 
1 

2590 DATA"N”,14.008,”"0”",16,"F",19,"” 
Ne",20.183,"Na”,22.991,"Mg”,24.32 
2600 DATA"A1",26.97,"5i",28.06,”P", 
30.98,”"5”",32.066,"C1",35.457,"Ar",3 
9.994 

2610 DATA”K”,39.096,"Ca”,40.08,"5c" 
‚44.10,”"Ti1",47.90,”V",50.95,”"Cr",52 
-01 

2620 DATA”Mn",54.95,"Fe",55.85, "Co" 
‚58.95,"Ni",58.71,"Cu",63.54,"Zn"”,6 
5.38 

2630 DATA”Ga"”,69.72,"Ge”,72.60, "As" 
‚74.91,"Se",78.96,"Br",79.916,”Kr"”, 
83.7 

2640 DATA”Rb"”,85.48,"5r",87.63,"Y", 
88.92,"Zr",91.22,"Nb",92.91,"Mo”,95 
.95 

2650 DATA"Tc”,99, "Ru", 101.1,"Rh"”, 10 
2.91,"Pd"”,106.4,"Ag”, 107.88,"Cd"”, 11 
2.41 

2660 DATA”"In",114.82,"5n",118.7,"S5b 
",121.76,"Te",127.61,"1I",126.92,"Xe 
",131.3 

2670 DATA"CS"”, 132.91,”"Ba”, 137.36, "L 
a",138.92,"Hf",178.5,"Ta”,180.92,"W 
",183.86 

2680 DATA"Re"”, 186.27,"0s",190.2,"Ir 
",193.2,"Pt”,195.09, "Au", 197,”"Hg”,2 
00.61 

2690 DATA"T1"”,204.39,"Pb",207.21,"B 
i",209,"Po",210,"At”,211,"An",222," 
u”",238.07 

2700 PRINT#2,"Geben Sie bitte die A 
tommasse des Elementes mit dem" 
2710 PRINT#2,"Zeichen ";e$;"” an 
2720 INPUT#2,"” ”,am:RETURN 
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DISKETTEN- 
BIBLIOTHEK 


Kennen Sie den EIDLD-Satz? Wenn Sie über kein 

Programm wie das hier vorliegende verfügen, kennen 

Sie sicher dessen Auswirkung. EIDLD besagt, daß es 

völlig egal ist, ob Sie Ihren Diskettenbestand von vor- 

ne oder von hinten oder völlig ungeordnet nach einer 

bestimmten dringend benötigten Datei durchsuchen. 

Sie können sicher sein, daß <E>s <I> mmer <D>ie 

<L>etzte <D>iskette ist, in der sie sich befindet. 

Mit diesem Programm ist die Plage jetzt zu Ende. Fol- 

gende Merkmale machen das Arbeiten mit diesem Pro- 

gramm äußerst einfach: 

— Menüsteuerung 

— Schnelles Einlesen ganzer Disketten 

— Nicht alle Dateinamen einer Diskette müssen über- 
nommen werden 

— Eingebaute Sortierroutine 

— Ausgabe der Dateien nach Disketten oder nach dem 
Alphabet geordnet 

— Ausgabe der Listen, nicht nur auf dem Schirm, 
sondern auch auf dem Drucker 

— Leichtes Aktualisieren von Disketten 

Die Optionen in einem Menü werden durch die Tasten 

<Cursor up> und <Cursor down> ausgesucht und 

mit <Copy> bestätigt. 

Das Programm enthält kein Druckermenü. Das hätte 

das Listing zu sehr aufgebläht. Es ist aber voreinge- 

stellt auf den NLQ 401 und auf 12-Zoll-Endlospapier. 

Wenn Sie Änderungen vornehmen wollen, müssen Sie 

die Zeile 30 anpassen. 


NEUE SEITEN 


Hier können Sie neue Diskettenseiten einlesen. Sie 
werden in eine etwa schon bestehende Liste einsor- 
tiert. Einfacher geht es nicht mehr. Geben Sie zu- 
nächst die Titelzeile ein (am besten das Datum) und 
danach die Bezeichnungen oder Namen der Disket- 
tenseiten, die Sie einlesen wollen. Wenn Sie keine 
weitere Diskettenseiten mehr einlesen wollen, drücken 
Sie einfach <Enter>. Das Programm fordert jetzt alle 
eingegebenen Seiten nacheinander an. Es liest das 
Directory und gibt Ihnen die Möglichkeit, mit einem 
Balkencursor und Copy diejenigen Dateien mit einem 
Pfeil zu markieren, die Sie in die Liste aufnehmen 
wollen. Übrigens ist der Diskettenzugriff immer dann 
beendet, wenn der Rand dunkler wird. Sie können 
dann schon die nächste Diskette einlegen. 


LISTE, SEITEN 


Hier können Sie sich die Liste auf dem Bildschirm an- 
zeigen oder auf dem Drucker ausgeben lassen. Die 
Liste ist entweder nach dem Alphabet (Liste) oder 
nach Seiten sortiert. 


SUCHEN 


Angezeigt wird derjenige Dateiname, in dem der einge- 
gebene Suchbegriff enthalten ist. Danach können Sie 


unter anderem die zugehörige Diskseite anzeigen 
lassen. 


(Bitte lesen Sie weiter auf Seite 75) 


LISTING | 


I RRRHHRRHRRTHRHRRIRIETRIEIHIESHISE RHEIN 
2 '# DISKETTEN-BIBLIOTHEK * 
3 # VON # 
a '® THOMAS NAUMANN * 
5 '# FUER * 
6 '’* SCHNEIDER AKTIV * 
74 CPC 464/664/6128 #* 
[: cd = 2 © = 2 2 2 2 2 2 2 2 2 222 2.2 222202 22.2 2.2202 


10 ’10. 4. 87 

20 | TAPE:OPENOUT”d"”:MEMORY HIMEN-1: 
CLOSEOUT: | DISC: ZONE 26:DEFINT a-z:D 
IM f(600,1),v$(700) ,d( 100,1) ,od( 100 
) ,‚d$( 65) ‚m( 65) 

30 i$=-CHRA$( 24) :v$(0) =" = 
:sz$=CHRA$L 27) +CHA$L 120) +CHRA$L O0) +CHA 

$( 27) +CHRA$( 67) +CHA$( 0) +CHR$( 12) :b$ = 

CHR$( EF2) +CHRA$CEF3) +CHRA$(EF 

0) +CHA$( &EF1) +CHA$CEF6) +CHRA$( EF7) +CH 
A$S(EFA) +CHR$( EFB) +CHR$(&13) :mk $=CHR 

$( 198) 

40 b1$=SPACE$( 12) :e$=CHR$( 200) :u$=C 
HA$( E10) +CHR$C 127) +CHA$L GEEO) : t$=CHR 
$( 31) +CHR$( 6) +CHR$( 1) +i$+” ARCH v 3 
.2 "+i$:bw$="Bitte warten!” 
:we$=-CHR$( 31) +CHA$L 6) +CHA$( 25) +i1$+" 
Weiter mit <ENTER> "+i$+CHRA$( 7) 

50 t2$=CHR$( 31) +CHA$( 30) +MID$LE$,3) 
:ms$=CHA$( EFO) +CHA$(EF1)+” und COPY 
JENTER" :w$=CHRA$( &FO) +CHRA$( E&F.1) +CHR$ 
( 13) +CHA$( EEO) :mi$=" ":p1$= 

CHR$( 246) :edi$="Ende Discnamen" 

60 sog=--1:dc=-1:vbr=15:br=10:dk=3:f 
a=22:zp=58:BORDER dk :MODE 1:INK 1,f 
a:INK 0,0:PEN 1:PAPER 0 

70 mn=4:mm=9:DIM m$(mn,mm) :h.m=0:d. 
m=-1:a.m=2:m.m=3:f.m=4:DIM mp( mn) :mp 
C(h.m) =9:mp( d.m) =7:mp( a.m) =2:mp( m.m) 
=4:mp(f.m)=3 

80 RESTORE 90:FOR i=0 TO mn:FOR j=1 
TO mp(i) :READ m$(i, j-1) :NEXT:NEXT 
90 DATA Neue Seiten,Liste,5eiten,Da 
tei suchen, Vebersicht,Aendern,Disk- 
Menue,Alles loeschen,Ende 

100 DATA Umbenennen,Loeschen,Laden, 
Speichern,Backup,BAKs loeschen, Haup 
tmenue 

110 DATA Drucker,Bildschirm 

120 DATA Seiten loeschen,Namen aend 
ern, Titelzeile,Hauptmenue 

130 DATA Weitersuchen, Seite zeigen, 
Hauptmenue 

140 FOR i=0 TO 65:d$(i)=b1$:NEXT 
290 ’Hauptmenue 

300 MODE 1:PRINT t$; 

310 LOCATE 6,3:PARINT”HAUPTMENUE”:i1 
=h.m:i2=6:13=7:GOSUB 6000:IF c=mp(h 
.m) THEN MODE 2:END 

320 IF c=2 OR c=3 OR c=4 OR c=5 OR 
c=6 OR c=8 THEN IF sog=-1 THEN LOCA 

TE 6,24:PRINT"Keine Liste vorhanden 


I":PRINT we$; :GOSUB 5000:L0 

CATE 1,24:PRINT CHR$( 20); :60TO 310 
330 ON c GOSUB 500, 1400,2900,3600,3 
500,2000,2500,2800:G60T0 300 

490 ’Einlesen 


500 GOSUB 3300: PRINT: PRINT"Namen de 
r neuen Diskseiten:":WINDOW 1,40, 14 
‚24:CL5:3a$=" ":ud=dce+1:WHILE a$<>"" 
510 INPUT a$:IF a$=""THEN 530 ELSE 
IF LEN(a$)>15 THEN PRINT"Hoechstens 
15 Zeichen!"”:GOTO 510 
520 dc=dc+1:G60SUB 5100:d( dc,0) =av 
530 WEND:MODE 2:IF ud<>dc+1 THEN GO 
SUB 700:60SUB 1000:G0SUB 1200 
540 RETURN 
690 "Catalog auslesen 
700 FOR 1p=ud TO dc:LOCATE 1,25:PRI 
NT CHR$( 18) ;CHRA$( 34) ; :PRINT v$(d(1p 
‚O)) ;CHA$( 34) ; :PRINT"” einlegen, <EN 
TER>":GOSUB 4990:CLS:BORDER 
vbr:INK 1,0:CAT:fr=PEEK( 49088) :BOR 
DER br:i=&69E7D:kK=0 
710 3=0:MID$LAd$CK), 1,12) =b1$ 
720 a=PEEK(i+j) :IF a>159 THEN a=a-1 
28 
730 IF a=0 THEN 760 
740 MID$Cd$CK), j+1,1)=CHR$(a) :IF j= 
10 THEN MID$( d$CkK), 10,3) =MID$( d$CkK) 
‚9,3) :MID$CA$CK) ,9, 1)="."” 
750 j=3+1:IF 3j>10 THEN i=i+14:k=k+1 
:60T0 710 ELSE 720 
760 da=k-1:CL5S:INK 1,fa:LOCATE 10,1 
:PRINT"Inhalt von ";v$(d(1p,0)) :FOR 
i=0 TOD da:LOCATE(i MOD 4) #20+2,1i\4 
+3:PRINT d$(i) :NEXT:LOCATE 
10,da\4+5:PAINT fr;"KByte frei":d(1l 
pPp,1)=fr 
770 BORDER dk:LOCATE 1,25:PRINT CHR 
$( 18) ; :PRINT”<CLRA> Ueberspringen <D 
EL> - <COPY> +” 
780 GOSUB 5000:nr=INSTR(u$,e$) :IF n 
r=D0 THEN 780 
790 IF nr=1 THEN 840: ’Die Diskseite 
wird nicht gelesen 
800 IF nr=2 THEN w1$=mi$:GOSUB 3800 
:GOTO 820 
810 IF nr=3 THEN w1$=p1$:GOSUB 3800 
:G0TO 820 
820 BORDER br:FOR i=DO TOD da:IF m(i) 
=-1 THEN a$=MID$( d$li), 1,12) :GOSUB 
5100:f(s,0O)=1p:f(s,1)=av:s=s+1 
830 NEXT 
840 BORDER dk :NEXT: sog=s-1:RETURN 
990 ’Sortieren - Quicksort 
1000 MODE 1:PRINT t$; :BORDER br:LOC 
ATE 6, 10:PRINT”"Sortieren: Dateiname 
n":LOCATE 6,20:PRINT bw$ 
1010 DIM st(50,1) :t=1:st(t,0)=0:st( 
t,1)=sog:WHILE t<>O:li=st(t,0):r=st 
(t,1) 
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1020 t=t-1:WHILE li<r:i=li:j=r:p=f( 

(li+r)\2,1) 

1030 IF i>j THEN 1080 

1040 IF v$Cfli,1))<v$lp) THEN i=-i+1: 

GOTO 1040 

1050 IF v$C Fl J,1))>v$Cp) THEN j=j-1: 

GOTO 1050 

1060 IF i“-3J THEN FOR k-0 TO 1:h=-f( 
i,k):fli,k)=f(j,k):f(3j,k)=h:NEXT:i>=- 

i+1:3=3J-1 

1070 GOTO 1030 

1080 IF i<r THEN t=t+1:st(t,0)=-i:st 

(t,1)>r 

1090 r=j:WEND:WEND:ERASE st 

1100 BORDER dk:PRINT CHR$(7) ; :RETUR 

N 

1190 ’Disknamen sortieren 

1200 MODE 1:PRINT t$; :BORDER br:LOC 

ATE 6, 10:PRINT"Sortieren: Discnamen 
":LOCATE 6,20:PRINT bw$:FOR i=O TO 

dc :od(i)=i:NEXT 

1210 DIM st(50,1) :t=1:st(t,0)=0:st( 

t,1)=dce:WHILE t<>0:1li=st(t,0) :r=st( 
t,1) 

1220 t=t-1:WHILE li<r:i=li:J>=r:p=d( 

od{(li+r)\2),O) 

1230 IF i>j THEN 1280 

1240 IF v$Cdlod(i),O))<v$(p) THEN i= 
i+1:G0TO 1240 

1250 IF v$(ldlod( 3) ,‚O))>v$lp) THEN j= 
J3-1:60T0 1250 

1260 IF i<=j THEN h=od(i) :od(i) =od( 
Jj) :od( 3) =h:i=i+t1:j>Jj-1 

1270 GOTO 1230 

1280 IF i<r THEN t=t+1:st(t,0)=i:st 

(t,1)>=r 

1290 r=3J:WEND:WEND:ERASE st 

1300 BORDER dk:PRINT CHR$(7) ; :RETUR 

N 

1390 ’Ausgabe 

1400 MODE 1:PRINT t$;:LODCATE 6,3:PRA 

INT UPPER$Cm$Ch.m,1)) :i1=a.m:i2=9:i 

3=2:G05UB 6000:0N c GOSUB 1410, 1440 
:RETURN 

1410 PRINT#8B,sz$:PRINT#8,TAB(6) ;dt$ 
:PRINT#8:PRINT#8:a=0:FOR i=0 TO sog 
:PRINT#8, TAB( a+5) ;v$C f(i,1)) ; :PAINT 

#8, TAB( a+20) ;v$(d(f(li,0),O0) 

);:IF a=O THEN a=38 ELSE a=0 

1420 IF(i+5)MOD( zp*2)=0 THEN PRINT# 

8,CHR$( 12); 

1430 NEXT:PRINT#8,CHR$( 12) ; :RETURN 
1440 MODE 2:PRINT t2$; :ug=0:0og=MIN( 

20,sog) :GOSUB 5600 

1450 BORDER br:CLS:FOR i=ug TO og:P 

AINT v$Cf(i,1)); TAB(20); :PRINT TAB( 

25) ;v$(d(fli,0),0)) :NEXT:BORDER dk 

1460 GOSUB 5000:0N INSTA(b$,e$)GOTO 
1470, 1480, 1490, 1500, 1510, 1520, 1530 


1470 ug-MAX( ug-21,0) :og-MIN( ug+20, = 
og) :GOTO 1450 
1480 og=MIN( sog, og+21) :ug=MAX( D,og- 
20) :G0OTO 1450 
1490 ug=-0:0g=MIN( sog,20) :GOTO 1450 
1500 og-sog:ug-MAX( 0,o0g-20) :G0TO 14 
50 
1510 ug=MAX( ug-41,0) :0g=MIN( ug+20 
08) :60Fo Nasor FAR ERRFFOLS 
1520 og=MIN( sog, og+41) :ug=MAX( 0,og- 
20) :G0TO 1450 
1530 ug=MAX( ug-81,0) :og=MIN( ug+20,s 
og) :GOTO 1450 
1540 og=-MIN( sog,og+B1) :ug=MAX(O,og- 
20) :G0OTO 1450 
1550 WINDOW#O, 1,80, 1,25:RETURN 
1690 ’Speichern 
1700 GOSUB 5300:IF q THEN 1730 
1710 LOCATE 1,23:PRINT CHRA$( 18) ;”Sp 
eichern: ";i$;UPPER$( dn$) ;i$; :BORDE 
RAR vbr:OPENOUT dn$:PRINT#9,dt$:FOR i 
=0 TO dc:PRINT#9,v$(d(i,0)) 
:PRINT#9,d(i,1) :NEXT:PRINT#9,edi$:F 
DR i=0 TO sog:PRINT#9,f(i,0) :PARINT#A 
9,v$Cfli,1)) :NEXT 
1720 CLOSEOUT :BORDER dk :q=-1:LOCATE 

1,23:PRINT CHA$( 18) ; CHA$( 20) ; "BAK- 
Dateien loeschen? ( j/n)":GOSUB 5000 
:IF e$="J"THEN GOSUB 1900 
1730 RETURN 

1790 ’Laden 

1800 GOSUB 5300:IF q THEN 1840 

1810 LOCATE 1,23:PRINT CHRA$( 18) ;"La 
den: ";i$; UPPER$( dn$) ;i$; :ad=dc :BOR 
DER vbr:OPENIN dn$:LINE INPUT#9,dt$ 
:PRINT" — ";dt$ 

1820 LINE INPUT#9,a$:IF a$<>edi$THE 
N INPUT#9,d( dc+1, 1) :G0SUB 5100:d( dc 
+1,0)=av:dc=dc+1:G6G0T0 1820 
1830 WHILE NOT EOF:INPUT#9,f(s,0):f 
(s,0)=f(s,O)+ad+1:LINE INPUT#9,a$:G 
OSUB 5100:f(s,1)=av:s=s+1:WEND: sog= 
s-1:CLOSEIN:BORDER dk :GOSUB 

1200 

1840 q=-1:RETURN 

1890 ’BAKs loeschen 

1900 MODE 1:PRINT t$; :LOCATE 6, 10:P 
RINT"BAK-Dateien werden geloescht": 
a$="#.bak":BORDER vbr:|ERA,@a$:BORD 
ER dk :RETURAN 

1990 ’Manipulieren 
2000 MODE 1:PRINT t$;:LOCATE 6,3:PR 
INT UPPER$Cm$(Ch.m,5)) :i1=m.m:i2=9:i 
3=1:G05UB 6000 
2010 IF c=mp{(m.m) THEN 2020 ELSE ON 
c GOSUB 2100,2400,3300:G0T0 2000 
2020 RETURN 
2090 ’Diskettenseite loeschen 
2100 MODE 2:G0SUB 5500:PRINT:LINE I 


NPUT"Name der zu loeschenden Disket 39 
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‚1540, 1480:60T0 1550 
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tenseite: ”",a$:IF a$=""THEN 2230 

2110 BORDER br:MODE 1:PRINT t$; :LOC 

ATE 6, 10:PRINT"”Loeschen: "”;a$:LOCAT 

E 6,20:PRINT bw$:fd=-0:i=0 

2120 IF a$=v$(d(li,0O))THEN a=i:fd=-1 
ELSE IF i<dc THEN i=-i+1:G0T0 2120 

2130 IF NOT fd THEN LOCATE 1,20:PRI 

NT"”Name nicht gefunden" :PRINT we$:B 

ORDER dk :GOSUB 5000:G0T0 2230 ELSE 
i=0 

2140 IF od(i)=a THEN FOR 3j=-i TO dc- 
1:o0d( j) =od( j+1) :NEXT 

2150 IF od(i)>a THEN od(i)=od(i)-1 
2160 IF i<dc THEN i=-i+1:G0TO 2140 

2170 v$(ldla,0))="":tc=tc-1:FOR i=a 

.TO dce-1:FOR 3j=0 TO 1:d(i,J)=dli+t1,j 

) :NEXT:NEXT :de=dc-1 

2180 kz=0:i=0 

2190 IF fl(i+kz,D0)<>a THEN 2200 ELSE 
IF it+tkz<=sog THEN v$( fli+tkz,1))="" 
:tc=tc-1:kz=kz+1:s=s-1:G0OTDO 2190 EL 
SE 2210 

2200 FOR 3=0 TO 1:f(li,J)=fli+tkz,J): 
NEXT:IF f(i,0)>a THEN f(i,0)>=f(i,O0) 
-1 

2210 IF i<s-1i THEN i=-i+1:60T0O 2190 
2220 sog=s-1:BORDER dk 

2230 RETURN 

2390 ’Diskettenseitenname aendern 
2400 MODE 2:G05SUB 5500: PRINT : INPUT” 
Name der zu aendernden Diskettensei 
te: "”,a$:IF a$=""THEN 2420 ELSE FOR 
i=0 TO dc:IF v$(d(i,0))=a$ 
THEN LINE INPUT"”Neuer Name: 
i,0)) 

2410 NEXT:GOTO 2400 

2420 GOSUB 1200:RETURN 
2490 ’Disc-Operationen 

2500 MODE 1:PRINT t$; ::LOCATE 6,3:PR 
INT UPPER$(m$(h.m,6)) :i1=d.m:i2=6:i 
3=3:60SUB 6000:IF c<>mp( d.m) THEN ON 
c GOSUB 2600, 2700, 1800, 170 

0,3200, 1900:G0T0 2500 

2510 RETUAN 

2590 ’Rename 

2600 MODE 2:PRINT t2$;:LOCATE 1,3:C 

AT:LOCATE 1,25:INPUT”Alter Name: ”, 

a$:IF a$<>""THEN LOCATE 1,25:INPUT” 

Neuer Name: ",n$:IF n$<>""T 

HEN |REN,@n$,@3$:G0OTO 2600 

2610 RETURN 

2690 ’Diskdatei loeschen 

2700 MODE 2:PRINT t2$; :LOCATE 1,3:C 

AT:LOCATE 1,25:INPUT"Zu loeschen: "” 
‚a$:IF a$<>""THEN BORDER vbr:| ERA,®@ 

a$:BORDER dk :GOTO 2700 

2710 RETURN 

2790 ’Liste loeschen 

2500 MODE 1:PRINT t$; :LOCATE 6,3:PR 

INT UPPER$Cm$Ch.m,7)) :LOCATE 6, 10:P 


”‚v$Cdl 


ARINT"Wirklich?":GO5SUB 5000:IF e$-"J 
"THEN s=0:dce=-1:sog=-1:tt=0 
:tc=0:er=-1 

2810 LOCATE 6,20:PRINT we$:GOSUB 50 
00:RETURN 

2890 ’Seitenweise Ausgabe 

2900 MODE 1:PRINT t$;:LOCATE 6,3:PR 
INT UPPER$(m$(h.m,2)) :i1=a.m:i2=9:i 
3=2:G05UB 6000:0N c GOSUB 2910, 3000 
:RETUAN 

2910 PRINT#8,sz$:PRINT#8,TAB(5) ;dt$ 
:PRINT#8:PRINT#8:kK=3:FOR i=0O TO de: 
PRINT#8:PRINT#8,TAB(5) ;v$Cd(od(i),OD 
));” (";dlodli),1);”K frei) 
":PRINT#8:k=k+3:a=0:FOR j=0 TO sog: 
IF f( j3,0)<>od(i)THEN 2930 

2920 PRINT#8,TAB( a+5) ;v$(f( j,1));: 
F a=0 THEN a=20 ELSE IF a=20 THEN a 
=40 ELSE IF a=40 THEN a=60 ELSE IF 
a=60 THEN a=0:k=k+1:IF k>=z 

p THEN PRINT#8,CHR$( 12) :k=O 

2930 NEXT: PRINT#8:k=k+1:NEXT:PRINT# 
8,CHR$( 12) :RETURN 

2940 NEXT: PRINT#8:k=kK+1:NEXT:PRINT# 
8,CHR$( 12) :RETURN 
2990 ’Bildschirm: 
3000 i=0 

3010 MODE 2:PRINT t2$;:LOCATE 1,3:P 
RINT dt$:GOSUB 5600 

3020 PRINT:PRINT:PRINT v$(d(od(i),O 
));" -";dlodli),1);CHR$CB) ;"K Frei” 
:PRINT:BORDER br: j=0 

3030 IF f( 3,0)=od(i) THEN PRINT v$(f 
(3,1));5” ”, 

3040 IF j<sog THEN j=j+1:G0T0 3030 
ELSE BORDER dk :GOSUB 5000:0N INSTRA( 
b$,e$)G0OTO 3050, 3060, 3070,3080, 3090 
‚3100,3110,3120,3060:6G0T0 3 

130 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 


Seitenw. Ausgabe 


i=MAX(i-1,0):GOTO 3020 

i=MIN( dce,i+1) :GOTO 3020 
i=0:60T0 3020 

i=dc:G0OTO 3020 

i=MAX(i-2,0) :GOTO 3020 
i=MIN(i+2,dc) :GOTO 3020 
i=MAX(i-4,0) :G0TO 3020 
i=MIN(i+4,dc) :GOTO 3020 
WINDOW#0, 1,80, 1,25: RETURN 

3190 ’Backup: ziehen 

3200 CLS:PRINT t$;:LOCATE 6, 10:PRIN 
T"ARCH wird gespeichert”:BORDER vbr 
:5SAVE"arch"” :BORDER dk :RETURN 

3290 ’Datumkopf 

3300 MODE 1:PRINT t$;:LOCATE 1,5:PR 
INT"Titelzeile:":LOCATE 1,7:IF dt$< 
>""THEN PRINT"alt: ";dt$:PAINT 

3310 INPUT"neu: "”,dt$:RETURN 

3490 ’Druckroutine 
3500 MODE 2:605UB 5500:PRINT: PRINT” 
Ausdrucken ( j/n) ?"”:GOSUB 5000:IF e$ 
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| | LISTING 


<>"J"THEN 3540 

3510 PRINT#8,sz$; :WIDTH 70:PRINT#B, 

dt$:PRINT#8:a=0:FOR i=0 TO dce:PRINT 

#8, TAB(5+a) ;v$(d(od(i),O)); TAB(20+a 

) ; :PRINT#8,USING” —- frei: # 

## K";d(lod(i),1);:IF a=0 THEN a=37 

ELSE a=0 

3520 IF(i+6)MOD zp*2=0 THEN PRINT#B 
‚CHR$C 12); 

3530 NEXT :PRINT#8,CHR$( 12); 

3540 RETURN 

3590 ’Dateiname suchen 

3600 MODE 1:PRINT t$;:LOCATE 6,3:PA 
INT UPPER$(m$Ch.m,3)) 

3610 LOCATE 6,9:PRINT"”Name der zu s 

uchenden Datei:":LOCATE 6, 10:INPUT" 
"‚na$:IF na$=""THEN 3720 

3620 MID$(na$, 1,LEN(na$))=UPPER$(na 

$) 

3630 nn=O 

3640 IF INSTA(v$Cf(nn,1)),na$)=0 TH 

EN 3710 

3650 LOCATE 6, 13:PRINT"Gefunden: "; 
i$;v$lflnn,1));i$;" auf ";:LOCATE 1 

6, 14:PRINT i$;v&(d(f(nn,0),0));i$;: 
il=-f.m:i2=>15:13=1:G05UB 600 

8) 

3660 IF c=mp( f.m) THEN 3720 

3670 IF c=1 THEN LOCATE 1,12:PRINT 
CHR$( 20) ;:GOTO 3710 

3680 i=-O 

3690 IF od(i)=f(nn,OD) THEN GOTO 3700 
ELSE IF i<dc THEN i=>i+1:6G0TO 3690 

ELSE LOCATE 1,12:PRINT CHRA$( 12); :6G0 
TO 3650 

3700 GOSUB 3010:G60T0 3720 

3710 IF nn>=sog THEN LOCATE 6,20:PA 
INT"Nicht gefunden!" :PRINT we$:GOSU 
B 4990:G0T0 3600 ELSE nn=nn+1:G0TO 
3640 

3720 RETURN 

3790 ’Auswahl von Dateien 

3800 IF w1$=mi$THEN FOR i=0 TO da:L 

OCATE(i MOD 4) #20+1,1\4+3:PRINT w1$ 
:m(i)=0:NEXT ELSE FOR i=0 TO da:LOC 

ATE(i MOD 4) #20+1,1\4+3:PRAI 

NT w1$:m( i)=-1:NEXT 

3810 x=2:y=3:nn=0:LOCATE 1,25:PRINT 
CHR$( 18) ;"COPY: Markierung wechsel 
n - CLARA: Abbruch"; 

3820 LOCATE x,y:PRINT i$;d$(nn);i$; 
3830 GOSUB 5000 

3840 IF e$=CHR$(EFO) THEN x1=0:y1=-1 
:605UB 4000:G0OTO 3820 

3850 IF e$>=CHA$(EFI)THEN x1=>0:y1=1: 
GOSUB 4000:60T0 3820 

3860 IF e$=CHR$LEF2)THEN x1=-1:y1=0 
:GOSUB 4000:6G0T0 3820 

3870 IF e$=CHR$( EF3)OR e$=CHR$(C 13) T 

HEN x1=1:y1=0:G0OSUB 4000:6G0T0 3820 


3880 IF e$-CHRA$(BGEO) THEN GOSUB 4100 
:x1=1:y1=>0:605SUB A000:G6G0TO 3820 
3890 IF e$=CHRA$( E10) THEN GOTO 3910 
3900 GOTO 3830 

3910 RETURN 

3990 ’Kontrollrechnung 

4000 LOCATE x,y:PRINT d$(nn) 

4010 IF x+x1#20<O THEN x1=3:y1=-1:6 
OTO 4030 
4020 IF x+x1#20>80 THEN x1=-3:y1=y1 
+1 
4030 x=x+x1#20:y=y+y1:nr=( y-3) #4+(( 
x-2)/20) :IF nr<O OR nr>da THEN x=x- 
x1#20:y=y-y1 ELSE nn=nr 

4040 RETURN 

4090 "Markierung wechseln 

4100 LOCATE x-1,y:IF m{nn)=-1 THEN 
PRINT mi$ELSE PRINT pl1$ 

4110 m(nn)=NOT m( nn) :RETURN 

4980 "Warten auf Taste 

4990 WHILE INKEY$<>"":WEND 

5000 MID$( e$, 1,1) =CHR$( 200) :WHILE M 
ID$( e$, 1, 1)=CHA$( 200) :MID$(e$, 1,1) = 
INKEY$:WEND:MID$(e$, 1,1) =UPPER$( e$) 
:SOUND 1,0,1,7,,,31:RETURN 
5090 ’Einordnen 

5100 IF LEN(a$)=0 OR a$=" 

"THEN av=0:6G0T0 5150 

5110 IF tt=tc THEN v$(ltt+1)=a$:av=-t 
t+1:tt=tt+1:tc=tt:60T0O 5150 

5120 g=-1 

5130 IF LEN[v$(g))<>O THEN g=-g+1:60 
TO 5130 
5140 v$lg)=-a$:av=-g:tc=tc+1 

5150 RETURN 

5290 ’Dateiname eingeben 

5300 MODE 2:PRINT t2$; :LOCATE 1,3:C 
AT:q=O 
5310 LOCATE 1,23:PAINT CHA$( 18) ;CHRA 
$( 20) ; :INPUT"Dateiname: ",dn$:IF dn 
$=""THEN q=-1:60T0 5340 | 

5320 IF INSTA(dn$,"”.")ORA LEN( dn$) >8 
THEN PRINT:PRINT"Dateiname fehlerh 
aft! <TASTE>";:GOSUB 5000:G60T0 5310 
5330 dn$=dn$+".dsc"” 
5340 RETURN 
5490 ’"Diskseiten- Speicheruebersich 
t 
5500 BORDER br:PRINT"Gespeicherte D 
iskettenseiten (freier Speicherplat 
z)":PRINT:FOR i=0 TO dc:PRINT v$ld( 
od(i),0));"” -”;d(lodli),1);” 
K",:NEXT:PRINT:BORDER dk :RETURN 
5590 ’Blaettermaske 
5600 WINDOW#0,1,80,4,24:L0OCATE#1,1, 
25:PRINT#1,1$;"Blaettern: Cursortas 
ten: ";CHA$CEF2);"” Zurueck, ";CHRA$L 
EF0O);” Anfang, "”;CHR$CEF1I); 

" Ende, 
ETURN 
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";CHRA$CEF3);"” Weiter";i$;:A » 


3990 "Menue - iil=-Art Menue, i2=Anfa 

ngszeile, i3=Anfcursorpos 

6000 PLOT 68,400-12%*16+B:DRAWR 304, 

0:DRAWAR O,-(mp( i1) +1) #16:DRAWA-304, 

D0:DRAWR O,(Cmp(i1)+1)*16:FOR i=1 TO 

mp( i1) :LOCATE 6,i2+i1:PRINT j 

m$( i1,i-1) :NEXT:c=i3:LOCATE 6,20:PR 
INT ms$ 

6010 LOCATE 6,i2+c:PRINT i$;m$(liil,c 
-1);i$; 

6020 GDSUB 5000:0N INSTALw$,e$) GOTO 
6030, 6040, 6050, 6050:G6G0T0 6020 

6030 LOCATE 6,i2+c:PAINT m$(i1l,c-1) 
:c=MAX( c-1,1) ::60TO 6010 

6040 LOCATE 6,i2+c:PRINT m$(i1,c-1) 
:c=MIN(c+1,mp(i1)):GOTO 6010 

6050 RETURN 


. «BIN KASSLABL.BAS 3A KASSLABL.BAS 5A 
j . Bas 2 SppıLo . Bas 2 KBUCH «BAG 4A KURSENTW.BAS SB 
3DTITEL .664 iA 4GEU .BAS 3B LATBILD .BIN 5A LATEIN . 3A 
ABFRAGDR.BAS 4A ADRESSE . 5B LATLADER.BAS SA LAUFSCHR. ET 1A 
ADRESSE .BIN SB ADRESVOR.BAS 3A LESLIST .BAK SA LESLIST . 3 
ADRHAUPT . BAS 3A AHNEN «TXT 1A LESLIST .BAS 1A LESLIST .BA& 3A 
AHNENDAT. 1A AHNENPRG. I 1A LISTING2.BAS SB LOTTO .BAS ıB 
AHNENPRG 1A AHNENPRG.3 1A LOTTO »BAS 2B MAN «BAK 23 
AHNENPRG. 4 iA AHNENTAF.BAS 1A MAN «BIN iB MATHE .BAS 
ALTDEU .BAK 4B ALTDEU .BAS 4B MATHE .BAS 3B MATHEVOR.BAS 3B 
ALTEASY .BAS 4B AUSHILFE.BAS 1A MDEMOI .BAS 1A MDENO2 .BAS 1A 
BACKUP24. BAS 2B BENZIN .BAS 4B ME .BAS ZB ME »BAS 4A 
BENZIN .TXT 4B BILD «BIN A ME «BASS 4B ME »«TXT ZB 
BILD «BIN 3A BILD .BIN MEIGBB . 4B ME1IBBB .BAK 4B 
BILD «BIN 4A BIOHASTE- PAS 5B MEIBBB .BAS ZB MEIBBB .BAS 4B 
BIOMASTE.BAS 4B BIONASTE.TX 4B MEIOBB .TXT 4B MENUE .BAS 3B 
Bm .BAS 3A BJS »BAS 2A MERXDIR .BAS 2A MERXDIR .TXT 2A 
IS .TXT 2A BLT »BAS 4A NAHE .DAT 1A NEUSPIEL. 4B 
BORO1 .BAS SB BORO2 .BAS SB NORESET .664 1A SET .BAS 1A 
BS „BASS 4A BUDGET .BAS 1A OHMCODE .BAS 4A OSTFRIES.BAS ZA 
SHERERIL: BIS 2 CHEMIE 38 5B OSTFRIES.TXT 2A PASSWORT.BAS aA 
CHEMOAID.BA 4B CIRCLE . 2A PR BB 2B «TXT 2B 
CIRCLE .TXT 2B COPY .BAS SA PRO .BAS 2B PRINTER .BIN 2A 
copYi -BAS 3A COPY2 .BAK SA PRINTER .BIN 5A TE » 3A 
copyY2 »BAS SA CPCDES .BIN 5A PUNKTE .BAS SA PUZZLE .TXT 4B 
D2 +81 2A DATE DAT 1A PUZZLEI .BAS 4B PUZZLE2 .BAS R 
Bflfuenims 4A Mötüweiii 42 AAEFRCHRE IR Riklynunge AA 
818 . iA DIRMAN .REL 3B REAKTION. 3A REGRESSI.BAS 4A 
ISCUTIL.BAS SB DISKMONI.BAS 2A N «BASS 3A x .BAS 1A 
DM .BAS 3B DRUCKER .BAS 2A SCHRIFT .BAS 4A SCORASB . 
EASY ‚BIN 4A ERA2888 .BAS SB SCORASS . 3B SCREEN! ‚BIN 4 
ERDKUNDE . BAS 3B ESCTOT . B8 En SCREEN2 . BIN 4B SCROLL .TXT 2 
ETIKETT . SB EUROPA . SCROLLUP. 2B SO . 3A 
FINANZ .BAS 4A FINDRSX .BAS SB SEOTEXTI. 2B SEB@TEXT2. 2B 
FINISH .BAS 3B FUTATTAK.BAS 2A QUENZ_ .BAS 2B SEQUENZ .BAS SB 
FUTATTAK. TXT 2A GALGEING.BAS 2A SHOOTOUT.BAS 3 SHOOTOUT.TXT 2B 
GALGEN .BAS ZA GEHEIMDA.BAS 4A D BAS SOUND .TxT 1A 
GE R_ .BAS SB GEHOER .BAS 1A SPIELE . 4B SPIELE .BAK “B 
GEODIST .BAS 3A GIRO .BAS 1A SPIELE99. 4B SPOOLER .BAS 2A 
GIROTEST.GIR 1A GREMLIN . Ft SPRINGER.BAS 2B TAGE «BAS MA 
GRENZE .BAS 4A GROSSDRU.CK TAPEDISC.BA8S SB TAPETINE.BAS 4A 
OR*-1 4A HANG .DAT 2A TAU «BAS 3B TOOLKIT .BAS 4A 
HANOI BAS 2A HANOI .TXT 2A TRESOR BAS 3B TUNING .CAR 4A 
HARDCOP1 .BAS iA HEXDEZBI.BAS 3A UBOOT .BAS 3B UFO «BAS aA 
HIDUMP BIN SB HIDUMP .LAD SB .BAS 4B USA TXT “B 
HIDUMP9 .BIN SB HIRN «BAS 2B WALL BAS 1A WHYPER BAS 3B 
.BAS 2A HUMMEL .BAS 1A WORDS .BAS 4A ZAHLSYST.BAS 3A 
1 Br ans! dr 4 ZEITPLAN iA ZEITPLAN.BAS 1A 
KALENDER.BAS 3B KALENDER.BAS 4B 
KALENDER. BAS SB KALENDER. TXT 4B 
KALORIEN.BASS SA KARTAGO .BAK 3 
KARTAGO .BAS 3B KASSBUCH. BAS 
KASSBUCH.BAS 2B KASSBUCH.MUE 4A 
KABSE BA 4A KASSE «DAT 4A 


Hier können Sie Diskettenseiten löschen, ihre Namen 
oder die Titelzeile der Liste ändern. Falls Sie die Liste 
aktualisieren wollen, weil sich auf einer Diskette et- 
was geändert hat, löschen Sie diese Seite am Einfach- 
sten aus der Liste und lesen sie anschließend wieder 
ein. 


DISK-MENÜ 


Dieser Punkt erlaubt das Laden und Speichern der 
Liste und außerdem ein recht bequemes Umgehen 
mit Diskdateien. 


LÖSCHEN 


Löscht die Liste im Speicher. 
(JE) 


lt 0 — — LISTING 


YO RRRRRRHHHHRHHRRHRRRHRIHHRIIHIINE 
2 '% ADRESSENVORPROGRAMM ZUM * 
3 '#® ANLEGEN DES ERSTEN FILES * 
a 3% VON * 
5 ’%# KAI WALTER * 
6 ’* FUER * 
7 '% SCHNEIDER AKTIV % 
8 ’* CPC 464/664/6128 * 
g RRHRRHHHRHHHHHHRSRRRTISHHIEIHHTIE NN 
18 OPENOUT"adressen.dat” 

28 LINE INPUT”Name : ",a$: PAIN 
T #49,a$ 

38 LINE INPUT"Strasse : ",a$:PRIN 
T #9,a$ 

48 LINE INPUT"PLZ Ort : ",a$:PRIN 
T 49,a$ 

58 LINE INPUT"Telefon : ",8$:PRIN 
T 49,a$ 

55 LINE INPUT"Sonstiges : ",a$:PRIN 
T #9,a$ 

68 CLOSEOUT 

78 RUN "ADRESS 


1 ARRRBHRRHHRHRRSHSHRHRSHHIETEIE IT IEN 
2 ’# KLEINES ADRESSENPROGRAMM * 
3 '# VON * 
a ’%* KAI WALTER * 
5 ’# FUER * 
6 ’* SCHNEIDER AKTIV * 
7 '* CPC 464/664/6128 * 
8 ’* DISKETTEN-BETRIEB * 
gg RRRRRHHRRHHRRHRRHHHISHRIEIRISEHE NUN 
18 CLS 

28 MODE(2) 


38 LOCATE 1,1:PRINT STRAING$( 88,42) 
48 FOR i=2 TO 23:L0OCATE 1,i:PRINT "” 
#":LOCATE 88,i:PRINT"”*"”:NEXT i 

58 LOCATE 1,23:PRINT STRING$( 88,42) 
68 LOCATE 1,3:PRINT STRING$( 88,42) 
78 LOCATE 18,2:PRINT"Adressenverwal 
tung fuer Schneider ";CHR$( 164) ;"” b 
y KWS 1987 

88 FOR i=1 TO 6:KEY i,CHRA$(4B+i) :NE 
XT i 

98 DIM a$( 5,288) ‚,nam$(5),b$(5) 

188 OPENIN”adressen.dat” 

118 last=®@ 

128 IF last=288 THEN PRINT”Datei vo 
11 !!”:GOTO 168 

138 last=last+1 

148 FOR i=1 TO 5:INPUT #9,a$:a$li,l 
ast)=a$:NEXT i 

158 IF EOF=@® THEN 128 

168 CLOSEIN 
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LL———————————— 


178 FOR i=1 TO S:READ nam$( i) :NEXT 
n 

188 DATA "Name", "Strasse", "PLZ Ort” 
‚"Tel.”,"Sonstiges" 

198 FOR i=1 TO 5:LOCATE 18,i+7:PRIN 
T nam$( i) :LOCATE 25,i1+7:PRINT ”...: 
":NEXT i 

288 dnr=1:G05SUB 378 

218 LOCATE 1,14:PRINT STAING$( 88,42 
) 

228 FOR i=1 TO 6:READ a$:LOCATE 28, 
15+i1:PRINT "(f”;CHA$Ci+48);”) „a 
$:NEXT i 

238 DATA Adresse holen,Adresse eing 
eben, Angezeigte Adresse editieren 
248 DATA Angezeigte Adresse drucken 
‚Angezeigte Adresse loeschen,Ende 


258 a$=INKEY$:IF a$="" THEN 258 

268 IF INSTA( "123456" ,a$)=® THEN 29 
1%) x 

278 a=VAL(a$) 

288 ON a GOTO 598,679,738,770,798,8 
78 

298 a=ASC(a$) :IF a=242 OR a=243 THE 
N 318 


308 GOTO 2508 

318 IF a=243 THEN 348 

328 GOSUB 418:dnr=dnr-1:IF dnr<1i TH 
EN dnr=last 

338 GOSUB 378:G60T0O 258 . 

348 GOSUB A18:dnr=dnr+1:IF dnr>last 
THEN dnr=1 

358 GOSUB 378:G0T0 258 

368 END 

378 "Adresse anzeigen 

388 LOCATE 18,6:PRINT USING "Datein 
ummer : #444" ;dnr 

398 FOR i=1 TO S:LOCATE 38,i+7:PRIN 

T a$li,dnr) :NEXT i 

a4a088 RETURN 

a18 "Anzeige loeschen 

428 FOR i=1 TO 5S:LOCATE 38,i+7:PRIN 

T STAING$CLEN(a$(i,dnr)) ,32) :NEXT i 
:RETURN 

438 ’Drucken j/n 

448 IF dr$="n" THEN RETURN 

458 "Drucken 

468 PRINT #8, "Dateinummer ":dnr 

478 FOR i=1 TO 5:PARINT #8,a$(i,dnr) 
:NEXT i:PRINT #8: PAINT#8:PRINT#8:PR 

INT #8:RETUAN 

'Zeitschleife 

FOR i=1 TO zeit:NEXT i:RETURAN 
"Adresse holen 

LOCATE 24,6:PRINT " 


LOCATE 24,6:INPUT "",dnr$ 
IF dnr$="e" THEN GOSUB 378:60T0O 


LISTING des 
aktiv 


548 IF dnr$="" THEN 578 ELSE ptr=VA 

L( dnr$) 

558 IF ptr<1 OR ptr>last THEN 518 

568 GOSUB 418:dnr=-ptr:605SUB 378:G0T 

0 258 

578 GOSUB 418:FOR i=1 TO 5:LOCATE 3 

8,i+7:LINE INPUT "",b$(i):NEXT i 

588 LOCATE 28, 14:PRINT"Drucken ( J/n 

) ?" 

598 a$=INKEY$:IF a$="" THEN 598 ELS 

E IF INSTA("jn"”,a$)=@ THEN 598 

688 dr$=a$: zeit=-208 

618 FOR i=1 TO 5:LOCATE 38,i+7:PRIN 

T STRING$(LEN(b$Ci)),32) :NEXT i 

628 FOR ptr=1 TO last:z=9:60SUB 418 

638 FOR feld=1 TO S:IF LEFT$Ca$(lfel 

d,ptr) ‚LEN(b$( Ffeld)))=b$Clfeld) THEN 
z=z+1 

648 NEXT fFeld:IF z=5 THEN dnr=ptr:G 

0SUB 378:G0SUB A439:G0SUB 488 

658 NEXT ptr:LOCATE 1,14:PRINT STRAI 
NG$( 88,42) 

668. GOSUB 378:G0TO 258 

678 "Adresse eingeben 

688 FOR i=1 TO S:LOCATE 38,i+7:PRIN 
T STAING$(LEN(a$li,dnr)),32) :NEXT i 
698 last=last+1:dnr=last 

788 LOCATE 18,6:PRINT USING "Datein 
ummer : #A#HA” ;dnr 

718 FOR I=1 TO 5:LOCATE 38,i+7:LINE 
INPUT "",a$(Ci,dnr) :NEXT i 

728 GOSUB 378:6G0T0 258 

738 "Angezeigte Adresse editieren 
748 FOR i=1 TO 5:LOCATE 38,i+7:LINE 
INPUT”",b$(i) :NEXT i 

758 FOR i=1 TO 5:IF b$(i)<>"" THEN 

a$li,dnr)=b$(i) 

768 NEXT i:GOSUB 419:G0SUB 378:G0T0O 
258 

770 
788 

798 
8098 


"Adresse drucken 

GOSUB 4598:60T0 258 

"Adresse loeschen 

GOSUB 418 

818 IF last=dnr THEN 838 

828 FOR i=1 TO 5:a$(li,dnr)=a$(i,las 
t) :NEXT i 


838 FOR i=1 TO S5:a$li,last) ="":NEXT 
i 

848 last=last+( last>1) 

858 IF dnr>last THEN dnr=last 

868 GOSUB 378:G0T0 258 

878 ’Ende 

888 a$="adressen.dat":|ERA,@a$ 


898 
928 
919 
928 
938 
948 
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OPENOUT"adressen.dat” 
FOR i=1 TO last 

FOR a=1 TO 5 

PRINT #9,3$(a,i) 

NEXT a:NEXT 1:CLOSEOUT 
ECLS:END 


DRUCKERSPOOLER 


Der langsamte Teil einer Computerausrüstung ist der 
Drucker. Selbst die schnellsten Geräte der Mittelklasse 
legen maximal ein Tempo von 120 Zeichen je Sekun- 
de vor. Das mag sich schnell anhören, Praktiker je- 
doch wissen, wie langweilig dieses Warten ist, wäh- 
rend man doch schon die Verbesserungen eingeben 
oder etwas Neues beginnen will. Und weil so viel Zeit 
verlorengeht, wünscht man sich schon bald einen 
Druckerspooler. Dies ist ein Speicherbereich, der die 
auszudruckenden Daten auffängt und dann nach und 
nach an den Printer weitergibt, während der Anwen- 
der schon mit anderen Dingen beschäftigt ist. 

Andreas Müller, fleißiger Schneider aktiv-Autor, hat 
sich dieses Problemes angenommen und ein Listing 
für den CPC 464 erstellt. 


PROGRAMMBESCHREIBUNG 


„Spooler“ stellt dem Anwender einen Teil des Spei- 
cherbereiches als Druckerspooler zur Verfügung, so 
daß man im Programm fortfahren kann, wenn der 
Drucker noch arbeitet. Das Programm initialisiert sich 
selbst. Danach kann das entsprechende Anwendungs- 
programm geladen werden. Alle Druckerausgaben 
werden dann automatisch in den freien Speicherbe- 
reich gebracht und erst von dort an den Drucker ge- 
sendet. Lediglich bei Lade- oder Speicherroutinen mit 
der Diskettenstation oder dem Recorder wird die 
Druckerausgabe unterbrochen. Deshalb bitte zuerst 
einen Text abspeichern und dann ausdrucken. 


a Ko az = = = 2 2 2 2 22 2 202 2 2 222 2 22 2.22.22 2722 
15 * DRUCKERSPOOLER #* 
20 ’* VON * 
25 ’#* ANDREAS MUELLER * 
30 ’# FUER * 
40 ’* CPC 464 * 
so ARRRHRBIHISISIHHIRISIHHIRTRIHRUERERSESESESSTSENE 
60 


70 DATA 611,657,670,6ED,653,&62C,6BD 
‚E3E,6C3,632, 1076 

80 DATA &2B,6BD,&11,63A,6&71,6ED,653 
‚634,&71,G6ED, 1142 

90 DATA 653,636,671,611,668,6A6,6ED 
‚653,638,671, 1026 

100 DATA &3E,600,632,632,671,632,63 
3,671,621,62B, 565 

110 DATA &71,606,6F9,611,692,670,6C 
D,EEF,EBC,&21, 1308 

120 DATA &625,871,611,601,600,601,60 
1,600,&CD,EE9, 608 

130 DATA EBC,EC9,ECF,EF2,687,621,62 
5,671,6CD,GEC, 1597 

140 DATA EBC,&3E,ECF,&632,62B,EBD,&3 
E,EF2,632,62C, 1137 

150 DATA EBD,&3E,&87,632,&2D,E&BD,&C 
9,605,6E5,&F5, 1558 

160 DATA GED,E5B,634,671,62A,&38,67 
1,EA7,6ED,652, 1190 

170 DATA &38,614,620,616,621,62B,6&7 
1,ECD,E0A,EBD, 723 

180 DATA E3E,EFF,632,633,671,63E,60 


LISTING 


0,632,62D,671, 801 

190 DATA &18,604,6F1,6A7,618,611,6E 
D,&E58B,634,671, 970 

200 DATA &6F1,8612,613,6ED,653,634,67 
1,6837,63E,6&6FF, 1135 

210 DATA &32,632,671,6E1,6D1,86C9,6&F 
5,&0D5,6E5,8&821, 1568 

220 DATA &2B,671,6CD,&60A,&6BD,&3A,&3 
2,671,6FE,&600, 1035 

230 DATA &28,67A,6CD,&2E,6BD,&38,8&7 
5,6ED,6&65B,8&36, 1157 

240 DATA &71,61A,6CD,&E3E,670,6D5,&2 
A,634,671,62B, 981 

250 DATA EEB,&EA7,6ED,&652,6D01,620,81 
C,&11,63A,&71, 1178 

260 DATA EED,6&653,634,671,6ED,8653,6&3 
6,671,611,668, 1093 

270 DATA EA6,6ED,&E53,638,671,63E,&0 
0,632,632,671, 930 

2B0 DATA &32,633,671,618,645,613,6E 
D,6853,6&36,671, 813 

290 DATA EA7,621,669,6A6,6ED,&652,62 
0,607,611,63A, 904 

300 DATA &E71,6ED,6853,636,671,63A,&63 
3,671,6FE,8600, 1076 

310 DATA &28,627,62A,636,671,611,8&3 
A,E71,6A7,6GED, 88BO 

320 DATA &52,628,61C,621,669,6A6,6E 
D,E5B,6&34,671, 947 

330 DATA EA7,6ED,652,620,607,611,63 
A,&71,86ED,E53, 1033 

340 DATA &34,671,6ED,E5B,636,671,61 
B,&6ED,&53,838, 1063 

350 DATA &71,6C03,695,670,&3E,&00,8&3 
2,62D,671,6E1, 1064 

360 DATA &8D1,86F1,6C9,600, 651 

370 ’* Speicher begrenzen,Werte pok 
en # 

380 

390 

400 MEMORY 28671 

410 dat-0:5z-0:dz=-70 

420 FOR adr= 28672 TO 28965 

430 READ byte:dat=dat+1 

440 sz=sz+tbyte 

450 POKE adr,byte 

460 IF dat < 10 AND adr < 28965 
THEN 500 

470 READ chksum 

480 IF chksum<>sz THEN PRINT 
ler in Zeile :"”;dz 

490 dz=dz+ 10 :sz=-0:dat=D 
500 NEXT adr 

510 CALL 28672 

520 MODE 1 

530 LOCATE 9,9:PRINT 
M SPEICHER”: 
540 NEW 


"Feh 


"SPOOLER IST I 
FOR X-1 TO 1000:NEXT 
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nn 


CIRCLE 


Das Programm unseres Autors Gerd Kilian bietet Ih- 
nen die Möglichkeit, von Basic aus mit Hilfe zweier 
RSX-Befehle ausgefüllte und leere Kreise zu zeichnen. 
Mit IPCIRCLE,xp,yp,ra plotten Sie einen Kreis an 
der Position xp,yp mit dem Radius ra. Per Befehl 
IDCIRCLE drawen Sie einen entsprechenden Kreis. 
Der Radius muß dabei kleiner als 512 sein. 

Die Kreise werden in der jeweiligen Grapics-Pen- 
Farbe gezeichnet. Hier stellt das Listing noch den Be- 
fehl IGPEN,p zur Verfügung. Dieser RSX-Befehl ist 
für die CPC 464-Besitzer von großem Interesse, da 
ihr Computer ja den Basic-Befehl Graphic Pen nicht 
kennt. 


1 RRRRHRHRHISHRISHRHRIHSISHIHTTHIHHIH SEEN 
2 ’% RSX-BEFEHLE # 
3 ’# pcircle,dcircle,gpen * 
4 '’* VON * 
gs ’# GERD KILIAN * 
6 ’* FUER * 
7% SCHNEIDER AKTIV * 
8 * 

# 


* CPC 464/664/6128 
9 RRRRHIRHHIHHISHIIHHIIHIIHIIRIRSESESE RESET SE 


s0 

60 adr=&AO000 4 

An diese Adresse kommt das MC Progr 

amm 

70 IF PEEK(adr)=8&C9 THEN 1000 *’ 

Ueberpruefen, ob Programm schon gep 

oket 

80 

90 laenge= &E14F ’ 

Programm zum einpoken der Werte 

100 MEMORY adr-1:IF adr<O THEN adr= 

adr+256°2 

110 FOR a=adr TO adr+laenge-1:READ 

a$ 

120 IF LEN(a$)=2 THEN POKE a,VAL("& 

"+a$) :G0TO 150 

130 b=VAL(a$)+adr:IF b<O THEN b=b+2 

56°2 

140 POKE a,b-INT(b/256) #256:a=a+1:Pp 

OKE a,INT(b/256) | 

150 NEXT:CALL adr:POKE adr,&C9 ’ 
Programm als RSX einbinden 

160 GOTO 1000 . 
Demo 

170 

200 DATA 01,86000A,21,6028,CD,D1,BC, 

C9,6015,C3,6034,C3,8607A,C3,6&2C,50 

210 DATA 43,49,52,43,4C0,05,44,43,49 

‚52,43,4C,C5,47,50,45,CE,00,00,00 

220 DATA 00,00,FE,01,C0,7B,CD,DE,BB 

‚C9,FE,03,C0,CD,6&012B,ED,5B,F8,BF 

230 DATA 1B,1B,21,00,00,CD,CO0,8BB,ED 

‚5B,F8,BF,1B,1B,CD,&0120,21,00,00 

240 DATA 06,CA,C5,ES,CD,E010A,EB,B? 


_ LISTING 


‚ED,52,EB,E1,D5,EB,CD,&010A, 19,01 
250 DATA D5,ES5,CD,&600F4,CD,E00FF,CD 
‚F6,B8B,E1,01,C1,10,DE,CD,6&0140,C9 
260 DATA FE,03,C0,CD,&012B,ED,5B,F8 
‚BF,CD,60120,21,00,00,EB,01,90,01 
270 DATA C5,ES,CD,60115,EB,ED,52,EB 
‚E1,0D5,EB,CD,&0115,19,01,D5,E5,CD 
280 DATA E00FF,CB,2C,CB,1D,BD,28,22 
‚7D,E1,E5,F5,CD,600F4,CD,&00FF,CD 
290 DATA E00DA,CD,E00EA,CD,E00E2,EB 
‚CD,&00EA,EB,CD,&00DA,CD,&00EA,CD 
300 DATA E00E2,F1,E1,D1,C1,08,CB,78 
‚CA,6008E,CD,60140,C9,05,E5,CD,CO 
310 DATA BB,E1,D1,C9,05,E5,CD,F6,BB 
‚E1,D1,C9,E5,21,00,00,87,ED,52,EB 
320 DATA E1,C9,C5,06,06,CB,2A,CB, 1B 
‚10,FA,C1,C9,C5,06,06,CB,2C,CB, 1D 
330 DATA 10,FA,C1,C9,C5,06,05,CB,2C 
‚CB, 1D,10,FA,C1,C9,C5,06,08,CB,2C 
340 DATA CB, 1D,10,FA,C1,C9,C5,06,06 
‚CB,23,CB,12,10,FA,C1,C9,CD,CC,BB 
350 DATA ED,53,60148,22,8014D0,ED,58B 
‚FC,BF,2A,FA,BF,CD,C9,BB,C9,ED,5B 
360 DATA &014B,2A,60140,CD,C9,BB,C9 
‚00,00,00,00 

370 ’ 

999 ” *## Demo *### 

1000 MODE 1:G0SUB 1160:0N BREAK GOS 
UB 1190 

1010 LOCATE 2,3:PRINT"| PCIRCLE, 180, 
220,100"; :| GPEN,2:| PCIRCLE, 180,220, 
100 

1020 | GPEN,3:| DCIRCLE, 440,180, 100:L 
OCATE 18,23:PAINT”| DCIRCLE,440, 180, 
100” 

1030 FOR a=1 TO 4000:NEXT 

1040 * 

1050 
1060 
1070 


MODE 0:x=0 

FOR a=360 TO 20 STEP -20 

x=x+1:1GPEN,x:IF x=9 THEN x=0 
1080 | DCIARCLE, 320,200, a:NEXT 

1090 FOR o-1 TO B:FOR o-9 TO 1 STEP 
-1:G0SUB 1130:NEXT:NEXT 

1100 FOR c=1 TO 8:FOR a=1 TO 9 STEP 
1:G05UB 1130:NEXT : NEXT 

1110 GOTD 1090 

1120 

1130 FOR b=1 TO 9:INK b,O0:NEXT: INK 

a,20 

1140 FOR b=1 TO 6:CALL &BD19:NEXT:RA 

ETURN 

1150 

1160 RESTORE 1170:FOR a=0 TO 13:REA 

D b:INK a,b:NEXT:RETURN 

1170 DATA 0,24,20,6,26,0,2,8,10,12, 
14,16,18,22 

1180 

1190 GOSUB 1160:END 


——mm zz || ee 


mw 


GE 


n.- 


HISOFT-PASCAL 
WIRD ERWEITERT 
DATEIVERWALTUNG 


Weiter geht es mit unserer kleinen Serie, mit der wir 
versuchen, HiSoft-Pascal etwas zu verbessern. 
Nachdem wir in der letzten Folge gezeigt haben, wie 
eine schnelle Hardcopy programmiert wird, wollen 
wir uns heute mit der gebräuchlichsten Programmart 
beschäftigen, der Dateiverwaltung. 

In anderen Pascal-Versionen existiert der Variablen- 
typ FILE, der eine echte Dateiverwaltung ermöglicht. 
HiSoft jedoch hat diesen Typ nicht aus Standard Pas- 
cal übernommen. Die Frage nach dem Grund für die- 
ses Vorgehen ist wohl berechtigtigt, da der CPC be- 
reits eine Reihe von Firmware-Routinen besitzt, die 
zumindest eine sequentielle Dateiverwaltung wie in 
Basic ermöglichen. 


SEQUENTIELLE- ODER RANDOM-ACCSES-DATEI 


Bevor wir uns aber näher mit der Realisierung eines 
entsprechenden Routinepaketes befassen, sind einige 
Begriffe zu klären, die Ihnen vielleicht unbekannt sind. 
Eine sequentielle Datei ist eine Datei, in die Sie ent- 
weder schreiben oder daraus lesen können. Und zwar 
immer schön der Reihe nach, also vom ersten bis zum 
letzten Eintrag in sequentieller Folge. Diesem Verfah- 
ren steht die realtive Datei gegenüber, auch random- 
acces- oder abgekürzt ra-Datei genannt. Hier ist jeder- 
zeit ein Zugriff auf eine beliebige Eintragung möglich, 
und zwar sowohl zum Lesen als auch zum Schreiben. 
Die CPC-Firmware erlaubt (ohne weitere Tricks) diese 
Art der Datei leider nicht, obwohl sie eine Reihe von 
Vorteilen bieten würde. In Standard- bzw. UCSD- 
Pascal wird der Typ FILE wie folgt näher spezifiziert: 
VAR FILE OF variablentyp 

Dabei kann ein FILE auch so komplizierte Gebilde 
wie SET’s ARRAY’s oder sogar RECORD’s enthalten. 
Die CPC-Firmware macht es uns hier leider nicht so 
einfach, da man in eine Datei nur zeichenweise schrei- 
ben kann. Am günstigsten ist es daher, ein “file of 
string‘ anzulegen, da sich in HiSoft jede Variable mü- 
helos als Zeichenkette darstellen läßt — sogar Records. 
Sie werden vielleicht fragen, wie um alles in der Welt 
man einen Record, der -zig verschiedene Variablen- 
typen enthält, in einen String umwandelt? Wenn Sie 
sich aber vergegenwärtigen, daß die PEEK-Prozedur 
auch mit CHARacters funktioniert, dürfte die Lösung 
auf der Hand liegen: Lesen Sie einfach von ADDR(Va- 
riable) bis ADDR(Variable)+SIZE(Variable)— 1 jede 
Speicherzelle aus und schreiben Sie sie in die Datei. 
Beim ZurückPOKEn wird der alte Variableninhalt wie- 
derhergestellt. 


MIT FILES DIE DATA’S ERSETZEN 


Files sind in Pascal eine gute Möglichkeit, die fehlen- 
den Optionen für Datenlisten (wie sie etwa DATA in 
Basic bietet) zu ersetzen. Mit einem Hilfsprogramm 
können Sie zunächst alle benötigten Werte von Hand 
eingeben und in einer Datei ablegen. Das Programm, 
welches die Daten benötigt, kann sie anschließend 
auslesen. Wenn die Datenmenge sehr umfangreich ist, 
würden sich bei Verwendung von TIN und TOUT 


188 
118 
128 


138 
148 


en _____ TIRSRTRICKS 


(RRRREEERSRIEIRSESE REIHE SEIESESESESESESESESESESESESEREAEIESE 
{* HISOFT AMSDOS Vers 
{* by Alwi 
(RER HUREN 


158 PROGRAM amsdos; 


168 
178 
188 
198 
288 
218 
228 
238 
248 
2508 
268 
278 
2858 
298 
388 
318 
328 
338 
340 
358 
368 
378 
388 
398 
488 
418 
428 
438 
4408 
458 
468 
478 
488 
498 
588 
518 
528 
538 
548 
558 
568 
578 
588 
598 
688 
618 
628 
638 
648 
658 
668 
678 
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CONST 
slen = 88; 
TYPE 
string = 
buffer = 
filename 


PACKED ARRAY [1..slen] O 
PACKED ARRAY [1..2848] O0 
= PACKED ARRAY [1..12] 0 


VAR 
dbuf : buffer; 
i : integer; {nur fuer Demo!} 
zeile : string; {nur fuer Demo!} 


PROCEDURE openout (f : 
BEGIN 
rb := chr (12); 
rhl := addr (f); 
rde := addr (dbuf); 
user (#bc8c) {cas out open} 
END; 


filename) ; 


PROCEDURE closeout; 
BEGIN 
user (#bc8f) {cas out close} 
END; 


PROCEDURE fput (s : string); 
VAR 
i : integer; 
BEGIN 
FOR i := 1 TO slen DO 
BEGIN 
ra := s [il]; 
user (#bc95) {cas out char} 
END 
END; 


PROCEDURE openin (f : 
BEGIN 
rb := chr (12); 
rhl := addr (f); 
rde := addr (dbuf); 
user (#bc77) {cas IN open} 
END; 


filename); 


PROCEDURE closein; 
BEGIN 
user (#bc7a) {cas IN close} 
END; 


PROCEDURE fget (VAR s : string); 


TIPS & TRICKS 


HRRRRHRRRISRRRSHHRSHRHRHRHRISIIHIISIIHIISIEN 
ion 1.8 83/81/1986 %#} 


n Ertl ”} 
HH HIHI TEEN) 


Nachdem Ihnen nun die Vorteile der Dateiverwal- 
tung dargelegt worden sind, soll sie aber endlich pro- 
grammiert werden. Sollten Sie jedoch weiterhin glau- 
ben, daß TIN und TOUT für Ihre Bedürfnisse aus- 
reichend seien, so haben Sie zwei Möglichkeiten: 
entweder weiterzublättern und sich leise zu ärgern, 


688 VAR oder den Artikel von vorn zu lesen und sich end- 
698 i : integer; gültig überzeugen lassen. 
7908 BEGIN 
7ı0 FOR i := 1 TO slen DO MIT RAM-PUFFER ARBEITEN 
728 BEGIN 
738 user (#bc88); {cas IN char} 
. 7408 s [i] := ra 
= «har 4 Die Dateiverwaltung des CPC funktioniert in der Art, 
F char 7508 END B 
68 END: daß, sowohl beim Schreiben, als auch beim Lesen, je- 
F char; ’ de Information zunächst in einem 2 KByte großen 
778 RAM-Puffer wandert. Solange der Puffer noch nicht 
788 BEGIN voll (beim Schreiben) bzw. leer (beim Lesen) ist, er- 
798 page; folgt kein Zugriff auf die Diskette. Deswegen ist es 


8088 writeln ( "Test Dateiverwaltung: ’); 
818 writeln ( ’5 Zeilen Text eingeben!’); writeln; 


828 openout ( "filetest.dat’); 
838 FOR i :=- 1 TO 5 DO 
848 BEGIN 


850 readlin; read (zeile); 
868 fput (zeile) 
878 END; 


888: closeout; 

898 writeln; writeln; 

988 openin ( "filetest.dat’); 
918 FOA i := 1 TO 5 DO 

920 BEGIN 


938 fget (zeile); 
948 writeln (zeile) 
958 END; 

968 closein 

978 END. 


TIPS & TRICKS 


Probleme ergeben, da eine Variable (etwa ein ARRAY) 
des benötigten „Umfangs“ wohl kaum mehr Platz im 
Speicher fände. Eine Datei begnügt sich hingegen mit 
„nur“ 2 KByte und kann so z.B. umfangreiche Werte- 
tabellen oder Zwischenergebnisse eines Simulations- 
programmes aufnehmen — man denke hier an das hin- 
reichend bekannte LIFE oder das WATOR-Problem. 
Es gibt außerdem Fälle, in denen ein gestelltes Pro- 
blem nicht in einem einzigen Programm zu lösen ist, 
weil der Speicherplatz nicht ausreicht. Hier ist es oft 
notwendig, Zwischenergebnisse an das zweite Pro- 
gramm zu übergeben. Die Möglichkeit einer sinnvol- 
len Dateiverwaltung (nicht diesen TIN- und TOUT- 
Chaos) kann hier sehr nützlich sein, da sich Varia- 

ble verschiedenen Typs leicht zusammenfassen las- 
sen — eine Möglichkeit, die nicht einmal Standard- 
Pascal bietet, denn die Deklaration “file of anything“ 
oder “file of garbage“ existiert nicht. 


vor allem beim Anlegen einer Datei wichtig, sie ab- 
zuschließen, da sonst Daten verlorengehen. 
Für die Eröffnung einer Datei zum Schreiben und 
zum Lesen existieren zwei verschiedene Routinen, die 
— in Analogie zu Basic — in den Prozeduren openout 
und openin eingebaut wurden. Das HL-Register 
enthält jeweils die Adresse des Dateinamens, DE die 
des 2K-Puffers. Da nur ein Pufferbereich reserviert 
wurde, kann immer nur eine Datei eröffnet sein, sonst 
entsteht ein Chaos. Register B enthält die Länge des 
Filenamens, also in Pascal immer 12 Zeichen. Füllen 
Sie bei Bedarf mit Leerzeichen auf. 
Die Routinen closeout und closein bedürfen wohl 
keiner Erläuterung. fput und fget schreiben einen 
String Zeichen für Zeichen in die Datei bzw. lesen 
ihn daraus. Das Setzen einer EOLN-{end of line)Mar- 
kerung entfällt hierbei, da die Strings feste Längen 
besitzen. Diese ist in slen definiert und kann (wenn 
nötig) verändert werden, z.B. wenn größere Arrays 
oder Records in einen String ‚„umgespeichert‘‘ werden 
sollen. Dabei ist es günstig, in einem Testprogramm 
zuerst deren Größe zu ermitteln (SIZE-Funktion), 
damit nicht unnötig Platz verschenkt wird. Was 
READLN im Beispielprogramm automatisch macht, 
sollten Sie auch nicht vergessen: Die Strings bei 
Bedarf mit CHR$(0) auffüllen. 
Wenn Sie in die Lage kommen sollten, gleichzeitig ei- 
ne Datei zum Lesen und eine weitere zum Schreiben 
offenhalten zu müssen, so ändern Sie einfach die 
Köpfe der entsprechenden Prozeduren: 
PROZEDURE openout 

(f:filename;VAR dbuf : buffer); 
PROZEDURE openin 

(f:filename;VAR dbuf : buffer); 
und definieren in der Variablendeklaration des Haupt- 
programmes zwei Puffer. Allerdings sollten Sie sich 
darüber im Klaren sein, daß Sie so 4 KByte statt nur 
zwei an Speicherplatz verbrauchen. Deswegen wurde 
in dem hier vorgestellten Programm auf diese Möglich- 
keit verzichtet. 
Im nächsten Teil wird Ihnen eine weitere Möglichkeit 
größerer Rechner zugänglich gemacht werden: die 
Arbeit mit Pulldown-Menüs. Wenn Sie diese Dateirou- 
tinen bereits für Speicherplatzfresser halten, so werden 
Sie in der nächsten Ausgabe noch ganz anderes 
erleben. (Alwin Ertl) 
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SERIE 


MASCHINEN- 
SPRACHE 
LEICHT 
GEMACHT 


Diesmal wollen wir speziell die CPC 6128-Besitzer 
erfreuen. Aber auch die Besitzer anderer CPC-Versio- 
nen kommen nicht zu kurz, nur können diese das 
Programm zum Kopieren von 5,25-Zoll-Disketten in 
Verbindung mit dem Vortex-X-Modul-Laufwerk 
und der zweiten RAM-Speicherbank nicht verwenden! 
Aber es sind ja noch andere Informationen ent- 
halten, die für alle interessant sind. 


Im ersten Teil geht es 
diesmal um die Parame- 
terübergabe an ein Maschi- 
nenprogramm und im 
zweiten um die Bankum- 
schaltung beim CPC 6128. 
Wir hatten schon mehr- 
mals darauf hingewiesen, 
daß Parameter (also Wer- 
te) beim Aufruf eines 
Maschinenprogrammes 
von Basic aus ‚‚mitgege- 
ben‘ werden können. 
Auch hatten wir schon 
mehrfach darauf hinge- 
wiesen, daß es nicht im- 
mer sinnvoll ist, komplette 
Programme in Maschinen- 
sprache zu schreiben, 
denn der Zeitaufwand 
hierfür ist oft weit grö- 
ßer, als es das Ganze 
überhaupt ‚‚wert“ ist. 
Deshalb ist es dann, 

wenn Basic nicht mehr 
ausreicht oder nicht mehr 
schnell genug ist, besser, 
nur die betroffenen Pro- 
grammteile in Maschinen- 
sprache zu schreiben und 
alles andere weiterhin in 
Basic 


DAS MASCHINEN- 
PROGRAMM „SCHLAU 
MACHEN 


Um einer Maschinenspra- 
che-Unterroutine ‚‚steu- 
ernde“ Werte zu überge- 
ben, bedient man sich vor 
allem zweierlei Methoden, 
die prinzipiell gleichwer- 


Beide Methoden haben 
Vor- und Nachteile, bzw. 
sind je nach Anzahl der 
Parameter unterschied- 
lich aufwendig. 

Welche man anwendet, 
hängt bei der Programm- 
erstellung oft mehr vom 
Zufall ab, als von wirk- 
licher Planung. 

Wir beschäftigen uns in 
diesem Artikel mit der 
zweiten Methode, da die- 
se weniger häufig benutzt 
wird und außerdem auch 
erklärungsbedürftiger ist 
als die erstere. Anderer- 
seits ist sie bei vielen 
Parametern aber weniger 
aufwendig als die 
“POKErei“, denn der 
Aufruf selbst erweitert 
sich gegenüber einem ein- 
fachen Maschinenpro- 
gramm-Call nur um die 
Liste der Parameter. 
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08881 
88802 
00983 
o000094 
80885 
008086 
00807 
800808 
0808089 
080818 
009811 
o8812 
080813 
00814 
88815 
880816 
08817 
080818 
808019 
00028 
08821 


( ADDD) 


ABBE DD 23 
84 AD 


(88498) 


ZARIERESESESESESESES INNE 
;# PARAM.EDI * 
5 RHRUHHERERHHR 

org 630088 
start adc 8,8 

ld hl,param 
weiter push af 


1d a,(lix+B) 
1d (h1),a 


pop af 
dec ) 
cp 6,8 
ret z 
inc ix 
inc hl 


J3Pp weiter 


defs 64 


param 


Errors.: 88888 Warnings: 80808 


Maschinenspracheteil zum 
Programm PARAM 


tig sind: Entweder POKEt 
man Werte in den hierfür 
zuständigen Programmbe- 
reich oder man gibt die 
gewünschten Parameter 
gleich beim Aufruf mit. 
Bei der ersten Methode 
werden vor dem Aufruf 
der Maschinenroutine in 
Speicherstellen Werte ein- 
geschrieben, bei der zwei- 
ten vwrerden diese an den 
CALL-Befehl angehängt. 


DIE REGISTER 
WISSEN ALLES! 


Nach einem Maschinen- 
programmaufruf enthal- 
ten verschiedene Register 
Werte, die hervorragend 
vom Programm selbst ge- 
nutzt werden können, 
wenn man weiß, wie. Im 
Augenblick interessiert 
uns nur der Inhalt des 
Akkumulators, der des 
DE- und der des IX-(Dop- 
pel-)Registers. 

Im Akku steht die Anzahl 


80 


der übergebenen Parame- 
ter. Besitzer des MAXAM- 
Assemblers (EPROM- 
Version) können dies 
durch ganz einfache Tests 
bestätigt bekommen. 

An einem kleinen Bei- 
spiel zeigen wir es auf. 
Diejenigen, die den 
MAXAM nicht angesteckt 
haben, sollten die in den 
nächsten Zeilen angege- 
benen Arbeiten nicht 
durchführen, denn ein 
CPC-Reset wäre die 
Folge! 


BESITZER DES 
MAXAM SEHEN MEHR 


Zuerst den obersten be- 
nutzbaren Speicher be- 
grenzen, z.B. durch 
MEMORY &9IFFF. 
Danach POKE &A000, 
&F7 und POKE &A001, 
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;Wert verdoppeln 
;hl als Zeiger 
;P.-Anzahl retten 
jAkku mit Zeicheh laden 
;Zeichen in Tabelle 
;Anzahl holen 
;erniedrigen 

;schon fertig ? 

‚Ja 

;Zeiger (ix und hl) 
;erhoehen 


&C9 eingeben. Der Wert 
&F7 ist für den MAXAM 
der Code für “break“ 
und &C9 ist der Code 
für RETURN. Nun kann 
aufgerufen werden: 
CALL &A000,1,2,3,4 
Nach diesem Aufruf mel- 
det sich der MAXAM so- 
fort durch die Ausgabe 
der Registerinhalte. 
Wenn Sie das Doppelre- 
gister AF näher ansehen, 
steht in diesem nun der 
Wert 04xx. Das erste 
Byte, also die ersten bei- 
den Hexziffern, sind der 


Inhalt des Akkus. Die 
beiden folgenden - hier 
mit xx gekennzeichne- 
ten — sind der Inhalt des 
F-Registers. Interessant 
im Augenblick sind nur 
die ersten beiden Stel- 
len, also der Akkuinhalt. 
Und diese ““04“ ist die 
Anzahl der beim CALL- 
Aufruf mitgegebenen 
Parameter. 

Wenn MAXAM-Besitzer 
etwas mit dieser Metho- 
de spielen, also eigene 
Versuche mit unterschied- 
licher Anzahl und unter- 
schiedlichen Parameter- 
werten durchführen, kön- 
nen sie gleich noch etwas 
erkennen: Im DE-Regi- 
ster steht immer die zu- 
letzt ‚‚mitgegebene“ 
Zahl! 


Wird eine Maschinen-Rou- 
tine ohne Parameter auf- 
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die Information, wo sie 
sich befinden, reicht: Das 
Doppelregister zeigt in 
den Speicherbereich, in 
dem alle mitgegebenen 
Werte zu finden sind. 
Bevor wir nun aber zu 
theoretisch werden, ge- 
hen wir nach einem letz- 
ten kleinen Hinweis be- 
züglich des MAXAM 
gleich zu. einem prakti- 
schen Programm. 

Trifft der MAXAM auf 
den Break-Befehl, gibt 

er — wie schon angeführt — 
die Registerinhalte aus. 
Je nachdem, welche 
Taste man anschließend 
drückt, wird das aufge- 
rufene Maschinenpro- 
gramm dann abgebro- 
chen (ESC-Taste) oder 
durch Betätigung einer 
anderen Taste fortgesetzt. 
Obwohl für obigen Ver- 


&A000 liegen. Deshalb 
die Assembleranweisung 
ORG &A000. Danach 
wird der Inhalt des Akku- 
mulators verdoppelt 
(ADCA,A). Mittels dieses 
Ein-Byte-Befehles wird 
zum ‚alten‘ Inhalt des 
Akkus nochmal dieser 
Wert addiert. Es findet 
also eine Verdoppelung 
statt. Der Additionsbe- 
fehl addiert zwar mit 
Carry, aber das ist für un- 
seren Zweck vollkommen 
belanglos. 


WARUM DIE 
VERDOPPELUNG 


Werden Parameter bei 
einem Call mitgegeben, 
handelt es sich meist um 
Integerzahlen (es ist auch 
möglich, Adresszeiger 

für Strings mitzugeben, 


’Demoprogramm: 


PRINT STAING$( 34,"=") 


PRINT 


228 


Parameteruebergabe 
MODE 2:MEMORY E9IFFF:PRINT"Demo-Programm: Parameter-Uebergabe 


GOSUB 278:DIM w( 32) ‚wert( 32) :tabad=&EAB14 
[2 


PRINT "Bitte die Werte eingeben! ":PRINT 
FOR i = 1 TO anzahl:PAINT 
CALL EADOBD,w( 1) ,w(2) ,w( 3) ,w(4) ‚w(5) ,w(6) ,w( 7) ,wC8) ‚wC9) ‚wi 10) ,w( 11) ‚we 12) „wel 


"Wert"i": 


13) ‚w( 14) ‚w( 15) ‚w( 16) ‚w( 17) ‚w( 18) ‚w( 19) ,w( 28) ,w(21), 
w( 22) ‚w( 23) ‚w( 24) ‚w(25) ,w(26) ‚w(27) ,w(28) ‚w(29) ‚,w( 38) ‚w(31) ,w( 32) 


tabad=-tabad+32*#2-2 
FOR i = 1 TO anzehl 


238 
248 
250 
268 
278 
2808 
298 


Demonstration der Parameter- 
Übergabe beim Maschinen- 
programm-Aufruf 


gerufen, dann steht im 
DE-Register also die 
Adresse der aufgerufenen 
Routine. Werden aber 
Parameter mitgegeben, 

so enthält DE immer den 
letzten Wert. Wo sind 
aber die anderen mitgege- 
benen Werte geblieben? 
Auch diese sind noch vor- 
handen, aber es ist 
schwierig, sie zu entdek- 
ken, denn die Suche da- 
nach kann diese Werte 
wieder überschreiben. 

Sie brauchen aber nicht 
danach zu suchen, denn 


wert( i) =PEEK( tabad+B) +PEEK( tabad+1) #256 
PRINT wert(i) :tabad=tabad-2:NEXT i:END 
FOR i = EABBD TO EABI3:READ d$:d=VAL("E"+d$) :POKE i,d:ps=ps+d:NEXT 
IF ps=2473 THEN RETURN ELSE PRINT"Fehler in Datas":END 

DATA 8f,21,14,80,f5,dd,?e,88,77,1,3d,fe,88,c8,dd,23,23,c3,84,8 


such eigentlich nur der 
BREAK-Befehl zur Re- 
gister-Ausgabe wichtig 
war, haben wir sicher- 
heitshalber aber noch 
den Return-Befehl in die 
nächste Speicherstelle 
gePOKEt, damit sich 

der CPC nicht plötzlich 
„aufhängt“, weil anstelle 
der ESC-Taste eine an- 
dere betätigt wurde. 
Zuerst die Besprechung 
der eingesetzten Maschi- 
nenroutine (siehe Bild 1). 
Das Maschinenprogramm 
soll im Bereich ab 


PRINT"Es koennen maximal 32 Werte uebergeben werden." 
PRINT"Werte muessen ganze Zahlen zwischen 8 und 65535 sein! 
INPUT"Wieviele Werte sollen uebergeben werden";anzahl 


IF anzahl >32 THEN PRINT"Fehler: Anzahl zu hoch!":END 


";:INPUT w(i):NEXT i 


aber das ist nicht Thema 
dieses Artikels). Da Inte- 
gerzahlen intern als Zwei- 
Byte-Werte codiert wer- 
den, belegen diese auch 
zwei aufeinanderfolgende 
Bytes (Speicheradressen). 
Die Anzahl der belegten 
Bytes ist also doppelt so 
hoch wie die der überge- 
benen Parameter. Um bei 
einem Umkopiervorgang, 
wie er anschließend erfol- 
gen soll, gleich die richti- 
ge Anzahl der Bytes zu 
haben, wird also der In- 
halt des Akkus verdoppelt. 
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Danach folgt der Befehl 
LD HL, PARAM 
Dieser bewirkt, daß das 
Doppelregister HL auf die 
Speicherstelle zeigt, in 
welche nachher das erste 
Byte eingeschrieben wer- 
den soll. Während des wei- 
teren Programmlaufes 
wird dieser „Zeiger“ lau- 
fend erhöht. Anfangs deu- 
tet HL auf das Label 
PARAM. Bei PARAM 
wurden 64 Speicherstel- 
len reserviert, da maximal 
32 Parameter übergeben 
werden können. 
Beim Label ‚‚weiter“ 
wird der Inhalt des Dop- 
rasen AF auf den 
teck gelegt (PUSH AF). 
Der Stack ist ein Stapel 
(also ein Speicherbereich), 
auf den Werte kurzfristig 
abgelegt werden können. 


NUR DER AKKU- 
et INTERESSIERT 


Der Inhalt von F ist für 
unsere Zwecke zwar im 
Augenblick völlig uninter- 
essant und es würde aus- 
reichen, nur den Akku- 
inhalt irgendwohin zu ret- 
ten, aber so ist eseben 
viel einfacher: Ein Byte 
reicht für diesen Vorgang. 
Würde die „Rettung“ 
mittels anderer Program- 
miertechnik durchgeführt 
werden, wären mehr 
Bytes erforderlich. Aller- 
dings muß der auf den 
Stapel abgelegte Wert 
nachher (also vor einem 
Rücksprung zu Basic) 
wieder entfernt werden! 
Nach dem PUSH-Befehl 
wird der Akku mit dem 
Wert geladen, auf den das 
Register IX zeigt. Also 
aufpassen, nicht mit dem 
Inhalt von I oder X, son- 
dern mit dem Inhalt der 
Speicherstelle, deren 
Adresse in IX steht! Der 
Befehl hierzu lautet: 

LD Y,(IX+0). Dieser Be- 
fehl kann auch so geschrie- 
ben werden: LD A,(IX). 
Da es aber auch möglich 
ist, einen Offset zum IX- 
Register anzugeben, ha- 
ben wir die erste Schreib- 
weise gewählt. Das Dop- 
pelregister IX zeigt — und 
das ist wichtig zu wis- 

sen — nun nicht auf den 


ersten Parameter, sondern 
auf den letzten! Bei der 
Übergabe werden die ein- 
zelnen Werte (adreßmäßig 
betrachtet) von oben nach 
unten abgelegt. Das IX- 
Register wandert mit sei- 
nem Wert bei jedem Pa- 
rameter also um zwei 
Speicherstellen nach un- 
ten und deutet deshalb 
immer auf den letzten 
Wert. 

Im Akku steht also nun 
ein Byte des letzten Para- 
meters. Dieses wird durch 
LD (HL),A an den eigens 
hierfür reservierten Platz 
(nach dem Label PARAM) 
gebracht. HL zeigt ja auf 
die entsprechende 
Adresse. 

Nun wollen wir gleich 
überprüfen, ob schon die 
gewünschten Anzahl von 
Zeichen umkopiert ist. 
Hierzu holen wir den 
„alten Inhalt“ des Dop- 
pelregisters AF wieder 
vom Stack. 

Durch den Befehl PUSH 
AF hatten wir den Wert 
auf den Stapel (Stack) 
gelegt und durch POP 

AF holen wir ihn wieder. 
Dadurch ist auch die vor- 
her bereits genannte For- 
derung, daß dieser Wert 
wieder vom Stapel ent- 
fernt werden muß, erfüllt. 


PRÜFUNG, OB 
AUFGABE ERFÜLLT 


In A steht nach diesem 
Befehl also wieder die 
verdoppelte Anzahl der 
mitgegebenen Parameter. 
Der mnemonische Befehl 
DEC A (DECrementiere 
A = erniedrige A um 1) 
verringert den im Akku 
enthaltenen Wert. Wenn 
dieser Wert 0 ist, dann 
wurden alle Werte umko- 
piert, ist es nicht der Fall, 
dann muß weitergearbei- 
tet werden. Der Befehl 
CP A,0 prüft, ob der Akku 
Null erreicht hat (Com- 
Pare = vergleiche). Ist der 
Wert Null, dann wird eine 
Signal-Flagge (Zero-Flag) 


gesetzt, die dies signalisiert. 


Der nachfolgende Befehl 
RET Z, führt dann, wenn 
die Zero-Flagge gesetzt ist, 
den Rücksprung zu Basic 
aus. Andernfalls wird der 
Wert des IX-Registers er- 
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höht (es zeigt dann auf 
das nächste Zeichen) und 
auch das HL-Register 
wird um eins hochgezählt. 
INC IX und INC HL füh- 
ren dies aus (INCremen- 
tiere = erhöhe). Dann wird 
durch JP WEITER bei die- 
sem Label der Programm- 
lauf fortgesetzt. 

In einem Maschinenpro- 
gramm wird man in vie- 
len Fällen die übergebe- 
nen Werte nicht umko- 
pieren, sondern direkt 
verwenden. In unserem 
Beispiel aber sollen (zu 
Demonstrationszwecken) 
die übergebenen Werte 
durch Basic wieder abge- 
holt und ausgewertet 
werden. Zu dieser De- 
monstration dient das 
aa PARAM (Bild 


Dieses Programm ent- 
hält in der Zeile 290 das 
Maschinenprogramm. 
Damit es keine Probleme 
beim Abschreiben der 
Listings gibt, ein kleiner 
Hinweis: Das Zeichen in 
Zeile 110, das dem Be- 
fehl MEMORY folgt, ist 
das kaufmännische Und- 
Zeichen. Dieses Zeichen 
erhalten Sie durch Betä- 
tigung der Taste 6, wenn 
Sie gleichzeitig die Shift- 
Taste gedrückt halten. 
Allerdings dürfen Sie nicht 
die Zifferntaste im Zif- 
fernblock benutzen, son- 
dern die ‘“6“ oberhalb 
der Buchstabentasten 
“T“ und ““Y“. Unser 
Drucker stellt dieses Zei- 
chen leider etwas anders 
dar, als Sie es auf dem 
Bildschirm zu sehen be- 
kommen. Wer unsere 
Serie über die Maschinen- 
sprache-Programmierung 
aufmerksam verfolgt hat, 
wird es vielleicht schon 
bemerkt haben: Bei ein- 
fachen und vor allem kur- 
zen Programmen gehen 
wir sehr detailliert auf 
die einzelnen Punkte ein, 
bei längeren Programmen 
immer nur auf die wich- 
tigsten Punkte. Der Grund 
ist, daß wir vielen etwas 
bieten wollen. Sowohl 
Einsteigern, als auch den 
schon etwas fortgeschrit- 
tenen Assemblerprogram- 
mierern (einem Profi kön- 
nen wir durch unsere 


19 RRRRRRHRRRHRRRRRSRRREISRRIEISHIEIEN 
20 ’* X-COPY * 
38 ’* VON # 
au '* LOTHAR MIEDEL * 
se ’* FUER * 
78 ’* CPC 6128 MIT VORTEX X-MODUL * 
BB NT RRRRRRRRRIRRIRIEIRTHIESETETSSERESESSESESESESE TEN 


188 REM XCOPY - Programm zum Dupliz 
ieren von 5,25-Zoll-Disketten 


118 REN fuer den CPC6128 in 
Verbindung mit einem 

128 REM Vortex-X-Modul-Lauf 

werk 

138 MEMORY E3FFF 

148 

158 "Allgemeine Definitionen 


168 txtinit=-&BBAE: Flush=&BD3D :warte 

=&BBB6 :buffstart=-64888:buffer=-buffs 
tart 

178 seclen=512:anzahl=1448 

188 

198 ’Fensterdefinitionen 

288 spurf=1:1fdsecf=2:sektorf=3:ban 
kf=4:secanzf=5:bufferf=6: jobf=7 

218 3j1$="Bitte"”:j2$="-Diskette einl 

egen und eine Taste druecken!" 

228 

238 ’Festlegungen und Definitionen 

fuer die Maschinen-Routine 

248 mpg=68888:mbefehl=mpg+&26:mdriv 
e=mpg+t&E2A 

258 mtrack=mpg+&2B: mformse=mpg+&2C: 

mbuffer=mpg+&E2E :blsw=-&58838 

268 

278 "Befehle fuer den Diskettenzugr 
iff 

288 lesen=68B4:schreiben=&85:befehl= 
lesen:b$="Lese"” 

298 

388 CALL txtinit:MODE 2:inv$=CHR$( 2 

4) 

318 PRINT inv$"Disketten-Duplizier- 

Programm fuer CPC 6128"; 

328 PRINT ” und Vortex-X-Modul-Lauf 
werk Vers.:1.3” 

338 PRINT inv$;SPACE$( 38) inv$"(c) b 
y Lothar Miedel”inv$ 

348 ” 

358 LOCATE 2,5:PAINT”Spur:" 
65,5:PRINT"Bank: "” 

368 LOCATE 28,5:PRINT"Laufende Sekt 
or-Nummer: 

378 LOCATE 68,7:PARINT"Bufferadresse 
:”:LOCATE 1,25:PRINT”JOB: 

388 LOCATE 28,22:PRAINT inv$"Die Zie 
ldiskette muss formatiert sein!"inv 

$ 

398 ’ 

488 WINDOW #spurf,8, 14,5,5:WINDOW # 


:LOCATE 


1fdsecf,46,52,5,5 

418 WINDOW #sektorf,3,78,18,19:WIND 
oOW #bankf,75,79,5,5 

428 WINDOW #bufferf,75,79,7,7:WINDO 
W #3jobf,6,79,25,25 

a38 ” 

448 PRINT #jobf,"Das Maschinen-Prog 
ramm wird erzeugt! 

as8 GOSUB 978:PRINT #jobf, "Maschine 
n-Programm erzeugt! 

a68 

478 PRINT #sektorf,inv$:CLS #Sektor 
f:PRINT #spurf,track 

488 PRINT #bufferf,HEX$(buffer) 

498 ° 

588 PRINT #bankf,bank:PAINT #jobf,J 
1$;” Quell”; J2$:CALL warte 

518 PRINT #jobf,b$;"” Diskettensekto 
ren"”:befehl=lesen 

528 '--------------- 777 


538 LOCATE 28,22:PRINT SPACE$( 4B) 
548 FOR i = 1 TO anzahl:secnr=-i-1:P 

ARINT #1fdsecf,i 

S58 track=INT( secnr/9) :sektor>=( secn 
r MOD 9) +1:G05UB 868 

568 pruefzahl= (secnr MOD 32) +1:IF 

alttrack = track THEN 588 

578 PRINT #spurf,track:alttrack=tra 

ck:PRINT #sektorf,"” "”; 

588 PRINT #sektorf, kaktor* “. 

598 IF i <> anzahl THEN IF befehl < 
> schreiben THEN 618 

688 IF befehl=schreiben THEN IF i=-a 
nzahl THEN GOTO 948 

618 buffer=buffer+seclen:PAINT #buf 
ferf,HEX$( buffer) 

628 

638 IF pruefzahl <>32 THEN 678 

648 block=block+1:buffer=buffstart: 
IF block=-5 THEN block=8:605UB 698 
658 IF block=8 THEN bank=block ELSE 
bank=block+3 

668 PRINT #bankf,bank 

678 NEXT i 

688 ’ 

698 PRINT #Abankf,inv$:PAINT #bankf, 
bank 

788 LOCATE 35,5:PRAINT #jobf, "Wechse 
l: "wechsel+1i1:wechsel=wechsel+1 

718 IF befehl=lesen THEN PRINT AyJob 
f,3j1$;” Ziel”; j2$ 

728 IF befehl=schreiben THEN PRINT 
#Jobf, j1$;” Quell”; j2$ 

738 BORDER 23:CALL flush:CALL warte 
:PRINT #bankf,bank 

748 CLS #sektorf:BORDER 1 

750 


ur: 


768 IF befehl=schreiben THEN befehl 

=lesen:b$="Lese”:GOTO 888 

778 IF befehl=lesen THEN befehl=sch 

reiben:b$="Schreibe” :i=-i-16® 

788 sektor=(i MOD 9) 

7980 

B88 CLS #sektorf:PRINT #jobf,b$;” D 

iskettensektoren 

818 IF sektor=9 THEN 838 

FOR k=1 TO sektor:PAINT #Sektor 
":NEXT k 

PRINT #bankf, inv$:RETUAN 


"Disketten-Zugriffe 

868 PAINT #bufferf,HEX$(Cbuffer) :PRI 

NT #spurf,track 

878 CALL blsw,bank :POKE ERTE trac 

k:POKE mdrive, 1 

888 bufferhigh=INT( buffer/256) :buff 

erlow=buffer-bufferhigh#256 

898 POKE mbuffer,bufferlow:POKE mbu 

ffer+1,bufferhigh 

988 POKE mformse, sektor:POKE mbefeh 

1,befehl:CALL mpg 

918 RETURN 

928 

938 ’ende 

948 bank=8:CALL blsw,bank:PRINT #ba 

nkf,bank:PAINT #jobf, "Diskette dupl 

iziert!"” 

958 END 

968 ° 

970 a=680088:e=68836 

988 FOR i =a TO e:READ d$:d$="&"+d$ 
:POKE i,VAL(d$) :ps=ps+VAL(d$) 

998 IF i < e THEN NEXT i 

1888 IF ps <>4635 THEN PRINT"Fehler 
in den Datastatements” :END 

1818 RETURN 

19828 

1838 DATA 3A,23,88,32,23,80,21,26,8 

8,CD,D4,BC,22,27,88,79,32,29,88 
1848 DATA 21,23,88,5E,21,2B,88,56,2 
1,20c,80,4E,2A,2e,88,df,27,88,c9 
1858 DATA 84,00,00,08,008,00,880,00,8 

8,0808,dd,7e,88,cd,5b,bd,c9 


Das komplette Programm zum 
Kopieren von 5,25-Zoll-Dis- 
ketten (Vortex-X-Modul- 
Laufwerk) unter Nutzung 

der zweiten Speicherbank 
beim CPC 6128 


Serie leider nur wenig 
beibringen). In diesem Zu- 
sammenhang ist es auch 
zu sehen, daß wir bei 
manchen Programmen 

die Erklärungen sehr kurz 
halten. Für den Fortge- 
schrittenen reichen unse- 


re Erklärungen dann aus. 
Der Einsteiger ist mit sei- 
nem Grundwissen noch 
nicht soweit, soll anderer- 
seits aber auch in den 
Genuß der Programme 
kommen. Wenn wir nun 
beim nächsten Thema 
nicht so ins Detail gehen, 
dann sehen Sie es bitte 
unter obigem Aspekt. 
Wir sprechen nur das an, 
was zum eigentlichen 

- Thema gehört. 


Arehentun 


Ein großer Unterschied 
des CPC 6128 zu seinen 
Brüdern ist die zweite 
Speicherbank mit den zu- 
sätzlichen 64 KB RAM. 
Diese ist aber von Basic 
aus nicht ansprechbar. 
Deshalb wird zu diesem 
Computer der Bankma- 
nager, ein Programm zur 
Nutzung der zweiten 
Speicherbank, mitgelie- 
fert. Da dieses Programm 
(unsinnigerweise!) ge- 
schützt ist, ist darin viel- 
leicht der Grund zu su- 
chen, weshalb kaum Pro- 
gramme veröffentlicht 
werden, die beim CPC 
6128 die zweite Speicher- 
bank nutzen. Kein Wun- 
der also, daß wir immer 
wieder gefragt werden, 
wie denn die volle Kapa- 
zität zu nutzen sei. 

Es ist wirklich ganz ein- 
fach, wie Sie nachher 
selbst feststellen können 
und ich (der Autor der 
Artikelserie über die Ma- 
schinensprache) schäme 
mich schon fast, daß ich 
zum x-ten Male darüber 
schreibe. Aber es ist wirk- 
lich so, daß trotz meiner 
verschiedenen Veröffent- 
lichungen diese Frage im- 
mer wieder an uns heran- 
getragen wird. Deshalb 
also wieder einmal die 
Bankumschaltung. Da 
mir aber die reine Um- 
schaltung zu wenig ist, 
gleich als Anwendung ein 
Programm zum Kopieren 
von Disketten der Vor- 
tex-X-Modul-Laufwerke. 


NUR FÜR BESITZER 


VON X-MODUL-LAUF- 
WERKEN IN VER- 
BINDUNG MIT EINEM 
CPC 6128! 


Besitzer von anderen 
CPCs können dieses Pro- 
gramm nicht verwenden, 
auch dann nicht, wenn 
für diese Speichererweite- 
rungen vorhanden sind! 
Das liegt daran, daß die 
Organisation und das 
Management bei diesen 
anders als beim CPC 
6128 ist. 

Der CPC 6128 hat zusätz- 
lich zu den Firmware- 
Einsprüngen seiner Brü- 
der eine Routine, welche 
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es ganz einfach ermög- 
licht, eine der zusätzli- 
chen vier 16-KByte- 
Bänke in den Bereich zwi- 
schen &4000 und &3FFF 
einzuschalten. Hierzu 
muß lediglich die Routi- 
ne bei &BDSB aufgeru- 
fen werden, und beim 
Aufruf im Akku die 
Banknummer stehen. 
Denken Sie sich bitte die 
zweite RAM-Speicher- 
Bank in vier 16 KByte- 
Blöcke unterteilt. Der 
erste Block hat die Num- 
mer vier und der letzte 
die Nummer sieben. 
Daraus ergeben sich folgen- 
de Möglichkeiten: Steht 
beim Aufruf der schon er- 
wähnten Routine im Ak- 
kumulator eine 0, dann 
ist die Normalkonfigura- 
tion ausgewählt. Steht im 
Akku beim Aufruf eine 
4, dann wird der erste 


. Block der zweiten Spei- 


cherbank in den Bereich 
zwischen &4000 bis 
&7FFF ‚eingeklinkt“. 
Enthält er eine 5, dann 
ist der zweite Block aus- 
gewählt usw. 

Befinden sich längere 
Basicprogramme im Spei- 
cher des CPC 6128, dann 
reichen diese evtl. über 
den Bereich &3FFF hin- 
aus und deswegen ist es 
dann nicht sinnvoll, einen 
anderen Block als den der 
Normalkonfiguration aus- 
zuwählen. Wird dieser 
Block „weggeschaltet“, 
fehlen dem CPC 6128 die 
dort stehenden Informatio- 
nen! Dies gilt aber nicht 
nur für das Programm 
selbst, sondern auch für 
die beim Programmab- 
lauf auftretenden Varia- 
blen. Will man also mit 
verschiedenen Blöcken 
arbeiten, dann muß 
HIMEM unter &4000 ge- 
legt werden. Da der 
„Austauschbereich‘“ aber 
nur bis &7FFF geht, kön- 
nen Maschinenprogram- 
me jederzeit bei &8000 
beginnen, denn dort er- 
folgt ja kein Blockaus- 
tausch. Unabhängig da- 
von, welcher Block ein- 
geschaltet ist, kann der 
CPC 6128 auf Maschinen- 
routinen, die oberhalb 
von &7FFF liegen, im- 
mer zugreifen. 


Doch nun zu unserem 
kleinen Bankschalter. 
Wie wir im ersten Teil 
schon gezeigt hatten, kön- 
nen bei einem Maschinen- 
programmaufruf insge- 
samt bis zu 32 Parameter 
übergeben werden. Diese 
Parameter können IX- 
indiziert dann vom Ma- 
schinenprogramm selbst 
wieder geholt und weiter- 
verarbeitet werden. Ein 
ganz einfaches Beispiel 
hierzu ist unser Bank- 
schalter. 
Das kurze Maschinenpro- 
gramm lautet: 
LD A,(IX+00) 
CALL &BDS5B 
RET 
Läßt man diese Zeilen 
assemblieren, dann ergibt 
sich die Hexbytetfolge: 
DD 7E 00 CD SB BD C9 
Eine doch wahrlich sehr 
kurze Maschinenroutine, 
die außerdem noch den 
Vorteil hat, daß sie über- 
all im Speicher stehen 
kann, ohne neu assem- 
bliert werden zu müssen. 
Nur muß berücksichtigt 
werden, daß sie nicht in- 
nerhalb von &4000 bis 
&T7FFF liegt, denn sonst 
findet der CPC nach dem 
Blockwechsel das Maschi- 
nenprogramm nicht mehr 
und stürzt hoffnungslos 
ab. Nehmen wir an, daß 
Sie das Programm in den 
Bereich ab & A000 able- 
gen wollen, dann brauchen 
Sie nur das folgende klei- 
ne Programm laufen zu 
lassen: ? 
100 MEMORY &9FFF 
110 FOR I = &A000 
TO &A006 
120 READ A$:A=VAL 
(“&“+A$) 
130 POKE LA:NEXTI 
140 DATA DD,7E,00, 
CD,5B,BD,C9 
Wollen Sie es dagegen bei 
&8100 ablegen, dann 
brauchen Sie nur die Zei- 
le 100 abzuändern in 
MEMORY &8OFF und 
in Zeile 110 die Schleife 
von &8100 bis &8106 
laufen zu lassen. Für an- 
dere Adressen geht es ge- 
nauso einfach! Doch was 
nützt die ganze Bank- 
schalterei, wenn niemand 
weiß, wie man Daten in 
diese Bänke schreiben 
und auch wieder auslesen 
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kann? Am Beispiel eines 
nützlichen Dienstpro- 
grammes zur Duplizie- 
rung von 5,25-Zoll-Dis- 
ketten für den CPC 6128 
in Verbindung mit einem 
Vortex-X-Modul-Lauf- 
werk wollen wir das auf- 
zeigen. 
Es ist doch immer wieder 
sehr zeitraubend, wenn 
man — um eine Diskette 
für die Vortex-Station zu 
duplizieren — erst CP/M 
aufrufen muß, um dann 
erst die eigentliche Dupli- 
ziersoftware zu laden und 
zu starten. Wenn dann 
das Duplizierprogramm 
die zweiten 64 KByte des 
CPC 6128 nicht nutzt, 
vergeht außerdem noch 
Zeit durch die häufigen 
Diskettenwechsel und 
Spaß macht es auch nicht, 
27mal einen Wechsel 
durchzuführen. Bei unse- 
rem Programm werden 
insgesamt 80 KByte des 
Speichers, der normaler- 
weise zwischen &4000 
und &7FFF liegt, plus 
die 64 KByte der zweiten 
RAM-Bank genutzt. 
Für eine ausführliche Pro- 
grammbeschreibung fehlt 
uns leider der Platz, aber 
die Programmbedienung 
ist nicht schwer. Derjeni- 
ge, der damit arbeiten 
will, braucht das Pro- 
gramm nur zu starten und 
den Anweisungen für den 
Diskettenwechsel zu fol- 
gen. Das ist alles. Nach 
neunmaligem Disketten- 
wechsel (720 KByte/ 
80 KByte=9) ist das Dup- 
likat fertig. Zwei Punkte 
sind dabei aber zu be- 
rücksichtigen: 
1. Die Zieldiskette muß 
bereits formatiert sein. 
2. Das Vortexlaufwerk 
muß das Laufwerk B 
sein (also keine Um- 
schaltung mit senkrech- 
ter Strich x!). . 
Dieses Programm ist für 
den CPC 6128 mit dem 
Vortex-X-Modul-Laufwerk 
geschrieben. Durch ent- 
sprechende Modifikationen 
kann es aber auch für den 
CPC 6128 mit seinem ein- 
gebauten Laufwerk ver- 
wendet werden. Falls 
Interesse daran besteht 
(Disckit3 — das mitgelie- 
ferte Diskettenhilfspro- 


gramm — nutzt aber be- 
reits die zweite Speicher- 
bank), können wir in 
einem späteren Heft ja 
nochmals darauf einge- 
hen (teilen Sie uns ruhig 
Ihre Wünsche mit!). 

Eine etwas andere Ver- 
sion des nun folgenden 
Duplizierprogrammes ha- 
be ich zwar schon in ei- 
nem Buch veröffentlicht 
(Schneider CPC: Datei- 
verwaltungen), will es 
aber möglichst vielen 
CPC 6128-Besitzern zur 
Verfügung stellen und 
deshalb hier das Pro- 
gramm, das die zweite 
Speicherbank beim CPC 
6128 nutzt. In diesem 
Programm ist seitens der 
Assemblerprogrammie- 
rung aber mehr enthalten, 
als die reine Bankumschal- 
tung (die Routinen zum 
Lesen und Schreiben von 
Disketten-Sektoren müs- 
sen ja ebenfalls vorhan- 
den sein) und deswegen 
würde eine komplette Er- 
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klärung zu umfangreich 
sein. Wenn Sie die De- 
tails noch nicht verstehen, 
macht nichts, in einem 
der Folgeartikel kommen 
wir noch zum Thema 
Schreiben und Lesen von 
Diskettensektoren und 
dann kommt bei Ihnen 
auch hierfür das Verständ- 
nis. Wen es interessiert: 
Der Bankschalter ist beim 
Programm XCOPY ab 
&8030 zu finden. 

Das Arbeitsprinzip des 
Programmes ist schnell er- 
klärt, wie schon erwähnt, 
folgt nun aber keine sehr 
detaillierte Beschreibung. 
Zunächst ist im Bereich 
von &4000 bis &7FFF 
der ganz normale RAM- 
Block eingeschaltet. In 
diese 16 KByte wird nun 
ein Diskettensektor nach 
dem anderen eingelesen. 
Da ein Sektor 512 Bytes 
umfaßt, können in einem 
RAM-Block 16384 
(=16*1024) Bytes einge- 
lesen werden. Dies ent- 


spricht 32 Sektoren. 
Sind die ersten 32 Sekto- 
ren eingelesen, dann wird 
der nächste 16-KByte- 
Block ab &4000 einge- 
blendet und dann geht das 
gleiche Spiel weiter, bis 
die fünf Bänke gefüllt 
sind. Dann wird die erste 
Bank (Bank 0) wieder ein- 
geblendet, die Zieldisket- 
te angefordert und Sektor 
für Sektor geschrieben. 

Es läuft also alles genau- 
so ab wie beim Lesen, 
nur mit dem Unterschied, 
daß geschrieben wird. 
Diese Vorgänge wiederho- 
len sich solange, bis die 
komplette Diskette ko- 
piert ist. Während des Pro- 
grammlaufes werden in 
entsprechend definierten 
Fenstern die Sektornum- 
mern, der Buffer in den 
eingelesen oder aus dem 
gelesen wird, die jeweils 
eingeschaltete Bank usw. 
mitgeteilt, damit können 
Sie verfolgen, was gerade 
abläuft. 


PEEKS & 
POKES 
ZUM CPC 


Wer sich dieses Buch zu- 
legt, sollte den Titel 

ganz schnell wieder ver- 
gessen. Denn “Peeks“ 
und “Pokes“ werden in 
dem 180-Seiten-Buch 
zwar mal gestreift, aber 
nicht so ausführlich be- 
handelt, wie der Titel 

es vorgibt. 

Schließlich haben die 
beiden Befehle bei Basic- 
Programmierern allge- 
mein den Ruf, einen 
ziemlich leichten Ein- 
stieg in das Betriebssy- 
stem und in die Maschinen- 
sprache zu ermöglichen. 
Und genau das habe ich 
bei diesem Buch vermißt. 
In insgesamt 14 Kapiteln 
wird zwar eine Menge 
Wissenswertes abgehan- 
delt, aber eben kaum das 
gestreift, was man sich 
erhofft, wenn man die- 
ses Buch sein Eigen nennt. 
Überhaupt kann ich mich 
des Eindrucks nicht er- 


EIN DATA BECKER BUCH | 


auch nicht so recht wuß- 
te, wovon denn nun sein 
Buch handeln soll. Da 
wird von einem Kapitel 
zum anderen so schnell 
das Thema gewechselt, daß 
man den roten Faden, den 
ja jedes Buch haben soll, 
vermißt. Mir ging es je- 
denfalls so, als ich das 
Buch nach dem Durchle- 
sen zur Seite gelegt habe. 
Da wird zum Beispiel im 
Kapitel 10 ausführlich 
erläutert, daß das Disket- 
tenlaufwerk schneller als 
der Kassettenrekorder 

ist (wer weiß das nicht?) 
und im Kapitel 5 wird sei- 
tenlang besprochen, wie 
man mit Hilfe der draw, 
plot und move-Befehls- 
gruppe Kreise, Ellipsen 
und Polygone auf den 
Bildschirm bringt, doch 


“ was hat das mit Peeks 


und Pokes zu tun? Rein 
gar nichts und insofern 
ist der Titel nach meiner 
Meinung eindeutig falsch 

ewählt. 

as Buch hätte besser 
heißen sollen: Tips und 
Kniffe zum CPC. Doch 
dieser Titel hätte sich 
vielleicht nicht so gut 
gemacht, denn Bücher mit 
diesem oder ähnlichen 
Titeln gibt es ja inzwi- 
schen wie Sand am Meer. 
Denn einige Tricks werden 
Sie sicherlich finden und 
einige Tips sind recht neu 
für diejenigen, die sich bis- 
her ausschließlich mit der 
Basic-Programmierung 
unter Zuhilfenahme des 
Handbuchs von Schnei- 
der beschäftigt haben. 
Aber auch sachliche Feh- 
ler enthält dieses Buch. 
Da wird im Kapitel 2 
behauptet, daß das Hand- 
buch den ““mod“-Befehl 
(liefert als Ergebnis den 
Rest einer Division) unter- 
schlägt oder daß der 
“Dec$“-Befehl immer zu 
einem Syntax-Error führt. 
Dies mag zwar beim 
464 zutreffend sein, aber 
auf meinem 664 laufen 
beide Befehle einwand- 
frei. Aber im Text findet 
man keinen Hinweis, daß 
der Autor diese angebli- 
chen Rom-Fehler nur 
SS 464 vorgefunden 

at! 
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wehren, daß der Autor Das Buch, das mir der 


ei 


Verlag freundlicherweise 
zur Rezension überlas- 
sen hat, ist zwar schon 
1985 erschienen, doch 
hätte man es nach der 
Vorstellung der 664- und 
6128-Typen anpassen 
sollen oder schon im Titel 
den Zusatz hinzufügen 
sollen, daß sich dieses 
Buch auf den 464 be- 
zieht. 
Für die 464-Besitzer, die 
sich ihren Computer neu 
zugelegt und ihr Hand- 
buch studiert haben, die 
Basic-Befehle, die dort 
erläutert sind, kennen 
und nun mehr wissen wol- 
len, ein paar Hinweise, 
einige Tricks und manche 
Tips zum besseren Ver- 
stehen der Arbeitsweise 
ihres CPC kennenlernen 
wollen, für die ist dieses 
Buch geeignet. 
Aber versprechen Sie 
sich nicht zuviel. Einige 
Themenkreise werden 
zwar angerissen, so zum 
Beispiel auch die Sound- 
programmierung, aber 
meist tatsächlich nur an- 
gerissen. Ausführlichkeit 
zeichnet dieses Buch 
wahrlich nicht aus. Bei 
einigen Kapiteln bleibt 
der Neueinsteiger etwas 
ratlos zurück. Da hilft 
dann nur eins: selbst wei- 
terprobieren. 
Allerdings: Zum Schluß 
des Buches dann doch tat- 
sächlich einige Seiten über 
die Programmierung in 
Maschinensprache. Aber 
erwarten Sie auch hier 
nicht zuviel: denn mehr 
als eine ganz, ganz kurze 
Einführung ist eben auf 
vierzig Seiten nicht mög- 
lich. Da hilft dann auch 
nicht, daß der komplette 
Z80-Befehlssatz abge- 
druckt ist, denn wenn die 
Erläuterungen zu den 
Opcodes nur gestreift 
werden, hilft auch der 
Befehlssatz nicht weiter. 
Doch wenn man dieses 
Kapitel nur als ‚„Schnup- 
per“-Kapitel auffaßt, ist 
es möglich, daß der eine 
oder andere von Ihnen 
dann doch mehr über Ma- 
schinensprache wissen 
will und sich mit Hilfe 
anderer Bücher weiter- 
bilden will. 

(Manfred Eibisch) 
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BEZUGSQUELLEN — 
WAS GIBT ES WO? 


Von Schneider aktiv 
getestet 


Wir wollen hier keine 
Gratiswerbung — es fin- 
den sich auch die Ver- 
treiber jener Soft- und 
Hardware, die bei uns 
nicht auf Gegenliebe 
stieß — machen, aber ein 
Testbericht ist völlig sinn- 
los, wenn wir nicht auch 
mitteilen, wo das Bespro- 
chene zu beziehen ist. 
Leider können nicht alle 
Händler berücksichtigt 
werden, die die Ware im 
Sortiment führen. Dies 
soll nur ein letzter Hin- 
weis für denjenigen Inter- 
essenten sein, der bei sei- 
nem Fachhändler auf 
leere Regale stieß. 


Hacker II (6/87) 
Koronis Rift (7/87) 
Enduro Racer (9/87 


Activision Deutschland 


mbH 
Postfach 760680 
2000 Hamburg 


Murder on the Atlantic 


(6/8 

Hive (6/87) 

Zombi (7/87) 

Reisende im Wind (7/87) 
Ballbreaker (7/87) 

Die Formel (8/87) 
Greyfell (8/87) 

One (8/87) 


Arie of Frankenstein 


(8/87) 

Dogfight (8/87) 

Kinetik (8/87) 

OCP Art Studio (8/87) 
Spy vs. Spy (9/87) 
Challenge of Gobots (9/87) 


ariolaoft GmbH 
Postfach 1350 
4830 Gütersloh 


Tips & Tricks zum CPC 
Band 2 (8/87 

MS-DOS Führer (9/87) 
Peeks und Pokes zum 
CPC (9/87) 
Maschinensprachebuch 
zum CPC (9/87) 

Data Becker 


Merowingerstr. 30 
4000 Düsseldorf 


CopyMan (6/87) 


Data Berger 
Im Lichtenfelde 76 
4790 Paderborn 


CPC-Macro-Assembler 
6/87) 


CPC-Com DFÜ-Pro- 
gramm (7/87) 


Holtkötter Versand 
Albert Schweitzer Ring 9 
2000 Hamburg 70 


Siren Software (7/87) 


PR8-Soft 
Erbachshof 1 


Arkanoid (6/87) 

Big Trouble in Little 
China (6/87) 

Ace of Aces (7/87) 
Vikings (7/87) 


Rushware GmbH 
An der Gümpgesbrücke 24 
4044 Kaarst 


Drucker DMP 40000 
(7/87) 
Fachhandel 


GBase PC-Datei , (6/87) 
Delta 4 PC-Datei (7/87) 
1ST-Word Plus PC-Text 
(7/87) 

RS232 Schnittstelle 
von Pace (7/87) 

Pitstop II — PC 1512 
(9871 


Schneider Data 

Computer Vertriebs GmbH 
Rindermarkt 8 

8050 Freising 


Star Writer PC (9/87) 


Star Division 
Uelzener Str. 12 
Lüneburg 


Magic Brush (9/87) 
Stairway to Hell (9/87) 
Donkey Kong (9/87) 
Express Raider (9/87) 


Waldeck Software 
Tulpenstraße 30 
2870 Delmenhorst 


Mirage Imager (6/87) 
Weeske 


Potsdamer Str. 10 
7150 Backnang 
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ARNOR NUN AUCH 
IN DEUTSCHLAND 


Vielen CPC-Besitzern 
ist der Name Arnor ein 
Begriff. Brachte diese 
Firma doch schon sehr 
früh ein Maschinen- 
sprache-Entwicklungs- 
paket für die CPCs auf 
den Markt, das auch 
heute noch zu den 
stärksten Programmen 
dieser Gattung zählt. 
Der Programmname 
MAXAM ist auch bei 
uns in Deutschland ein 
Name für Leistungs- 
fähigkeit und Qualität 
geworden. Arnor hat 
aber nicht nur den 
MAXAM entwickelt, 
sondern auch andere 
Produkte im Angebot. 
Insider kennen teilwei- 
se diese Produkte 
schon. Neu ist aber, 
daß Arnor (bisher über 
verschiedene Firmen 
vertreten) den Schritt 
gewagt hat, selbst in -» 
Deutschland aktiv zu 
werden. 

Mit dieser Aktivität 
verbunden ist auch 
gleich die neue Ange- 
botspalette für den 
deutschen Markt. So 
wurde das (einigen 
schon bekannte) Pro- 
gramm ProText erwei- 
tert und als eingedeut- 
schte Version PRO- 
WORT für den Joyce 
und den CPC 6128 prä- 
sentiert. Einen Testbe- 
richt von PROWORT 
bringen wir in Kürze. 
Außerdem bietet Arnor 
die Programmierspra- 
chen BCPL und C an. 
Äußerst interessante 
Produkte für CPC-Be- 
sitzer. Einen neuen 
Maxam gibt es auch: 
MAXAM I. 

Alle diese Produkte wer- 
den wir ausführlich 
testen und darüber be- 
richten. Die Anschrift 
von Arnor Deutsch- 


“land: 


Arnor (Deutschland) 
Ltd. 


Hans-Henny-Jahnn- 
Weg 21 

2000 Hamburg 76 
Tel.: 040/224942 


CPC-COMPUTER CLUB— 
FÜSSEN. User—Club sucht 
neue Mitglieder! Bitte Infor- 
mationsblatt anfordern. 
Markus Kehle, v.—Freyberg- 
str. 61, 8958 Füssen, Tel. 
083626645 
Software f. CPC 464? Liste 
m. Rückporto bei Thomas 
Knapek jun., Eichenweg 21, 
8312 Dingolfing anfordern. 
*Super Astronomiepro- 

amm* 
für CPC berechnet die Bahnen 
von Sonne, Mond, Planeten, 
Kometen, Asteroiden, schickt 
Disk./Kass. u. frank. Rückum- 
schlag u., falls vorhanden, ei- 
gene Astro.—Softw. an Georg 
Bilgeri, Engelitz 5 1/2, 8994 
Hergatz 
Schneider—CPC *** 464*** 
Wer schickt mir seine selbst- 
geschriebenen Prog. zu? Auch 
abgetippte u. andere! Schicke 
andere zurück! 100% Ant- 
wort! Auch Liste erwünscht! 
(Kass.) An: Andreas Günther, 
Bürgermeister-Trupp-Str. 
25, 6700 Lu.—-Oppau 
Suche für CPC 6128 auf Disk. 
das Spiel „Kaiser“. Angebot 
an: Armin Babel, Neusels- 
brunn 53, 8500 Nürnberg 50. 
Tel. 0911/864164 ab 20 Uhr! 
Eilt! 

xr% CPC kr 

Computerclub sucht noch 
Mitglieder in ganz Europa. 
Wir bieten: Programme, Zei- 
tung, Tips, Hardwarebörse 
etc. Nur 1,—DM im Monat 
Beitrag. Bitte an: RPL-Com- 
puterclub. Am Kurpark 16c, 
5420 Lahnstein 
C64 C128 VC20User Achtung 
Lichtgriffel mit Programmen 
und dt. Anleitung nur DM 49, 
Versand gegen Scheck /Nachn. 
Fordern Sie unseren kosten- 
losen Commodorezubehör- 
prospekt an. Firma Klaus 
Schißlbauer, Postfach 1171C, 
8458 Sulzbach, Tel.: 09661/ 
6592 bis 21 Uhr. Sonderak- 
tion: Legen Sie Ihrer Prospekt- 
anforderung DM 10,— bei. 
Sie erhalten 10 Superprogram- 
me auf Kass. od. Disk für 
C64/C128. 


Verk. ZX—-Spectrum, Inter- 
face 1, Microdrive, Multiface 
l m. 46 Cartr., Software u. 
Lit. sowie Kemp Joystick u. 
Quickshot 2 f. 650,— DM VB, 
evtl. einzeln. Martin Finke, 
v.-Galen-Str. 23, 4795 
Delbrück 


BÖRSE. 


Verk. 1-A-Programme f. 
CPC 464, nur Kass., keine 
Kopien z.B. Elite 35,— DM, 
Tau Ceti 25,— DM, Fighter 
Pilot 20,— DM. Liste anfor- 
dern od. anrufen. Rückporto. 
Siegfried Meyer, Meisenweg 
3042 Münster, Te. 05192/ 
5304 


—— NEUE MAILBOX —— 
Tel 07127/8581 — v. 18—3 
Uhr — ab 15.7.87 — Tel. 
07127/8581 
Verk. 7 Disk. (Wordstar, 
COBOL, Turbo—Pascal) u. 4 
Bücher f. Schneider CPC 
6128: 200,— DM. Franz 
Czopik, Ilmweg 8, 3300 
Braunschweig, Tel. 0531/ 
860774 
CPC 6128 Color *Top—Zu- 
stand* m. 3.5‘ Laufwerk, 
Datarec., ca. 70 Disk. 3,0“ 
u. 3.5“, Tolle Softw. auf 
Disk./Kass., 2 Joyst., Acryl- 
Abdeckhaube u. Unmengen 
Lit. 1.449,— DM. DMP 2000 
m. BK 1.949,— DM. Fritza, 
Tel. 07666/1509 


CPC * PC * C64 * AMIGA 
* Atari — Spiele-/ Anwender 
Software— Top Hits u. Neu- 
heiten ab 6,99! INFO-Porto 
1,90! Typ angeben! Fa. 
RUEHL - soft- & hardware— 
Durgen, 19 d, 4150 Krefeld 


Ich bin im Besitz eines 
Schneider CPC 464 sowie 
PC u. suche dringend Kon- 
takt zu anderen Usern IBM- 
kompatibler Rechner im 
Raum Kassel. Tel. 0561/ 
895548 

Verk. Softw. zu Wahnsinns- 
preisen. Preisliste kostenlos 
anfordern bei: Kai Schwett- 
mann, Steubenstr. 6, 4990 
Lübbecke 1 (nur f. CPC) 


Schneider Grünmonitor GT 
65 m. Bildschirmfilter, 4 
Wo. alt, 120 DM. Dipl.- 
Ing. D. Heine, Hohlstr. 23, 
4220 Dinslaken, T. 02134/ 
95839 


LICHTGRIFFEL 
mit Programm für CPC 
464 oder CPC 664 + CPC 
6128 nur 49,— DM. Ver- 
sand gegen Scheck/Nach- 
nahme. Info gratis! 

Fa. Schißlbauer, Postfach 
1171S, 8458 Sulzbach, 
Tel. 09661/6592 bis 21h 


Verkaufe neuwert. CPC 
464 m. Color Monitor (5 
Mon. alt), über 20 Spiele, 
Bücher, Joystick, Listings, 
Zeitschr. u. Handbuch. 
Neupr. über 2.000 DM, 
Kompl.-Preis 1.599 DM. 


Jürgen Freitag, Jägerw 
11, 8773 Frommersbac! 


Verk. CPC-Software auf 
Disk.: Aliens, Starglider 
VB 35 DM; Profi-Painter, 
Platinenkit 50 DM; auf 
Kass.: Impossible Mission, 
Bomb Jack, Gunfright, 
Ping-Pong, Space Invasion, 
The Wa nei be sap. u 
Turbo 
5-25 DM, "Tel Oasagııaıı 
VERK. CPC-664-ANLAGE 
m. Color-Mon., Zweitlaufw. 
sowie einer Men . 
Softw. Info: Jörg Speck- 
bacher, Westermannweg 
34, 3000 Hannover 21, 
Tel. 0511/794436 ab 18 
Uhr. Neupreis ca. 5.000 
DM, VB 2.800 DM 
Schülerin sucht billige Soft- 
ware (Spiele!) auf Kass. 
f. Schneider CPC 464. An- 
gebote an: Antje-Catrin 
Meyer, Bahnhofstr. 7, 3417 
Bodentelde, Tel. 05572/ 
1606 
SOFTWARE FÜR SCHNEI- 
DER-FANS! 13 Sonderhefte, 
10 davon m. Disk. (6 bzw. 
16 DM). 7 Orig.-Kass. je 
5 DM. Bei a 
nur 160 DM. Bitte Liste 
anfordern bei: G. Köneke, 
Westundstr. 26, 6072 Drei- 
eich 
Wer schreibt n.ir einfache 
Prog. f. CPC 464 u. Druk- 
ka NLQ 401 (Listing u. 
Kass.)? Werner Spingies, 
Edvard-Grieg-Str. 13, 2370 
Rendsburg 
Suche kaputte Computer 
(Schneider/Atari/Commo- 
dore) unter 10 DM. Auch 
kaputte Hardw. (Disk.- 
Station). möglichst im 
Raum Calw/Freudenstadt. 
Kaufe nur die ersten 5 An- 
gebote. Anruf Mittwoch 
von 19—21 Uhr unter 07459/ 
488 
+++ VERKAUFE SOFT- 
WARE +++ Romb Jack 2, 
3D Grand-Prix, Spindizzy, 
Elite je 30 DM, Winter 
Games 35 DM. Meldet‘ 
Euch bei: Marth Laurent, 
Nr. 3, L-9744 Deisselt, 
Tel. 00352/94112 od. R. 
Daubach, Nr. 12, L-5220 
Contern, Tel. 35599 
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schneide 


| _ aktiv 


Gratisinfo f. jeden CPC u. 
PC 1512 erhalten Sie bei 
Fr. Neuper, Postf. 72, 8473 
Pfreimd. Postkarte genü 
Bitte Computertyp angeben! 
SPIELESÜCHTIGER sucht 
ingend zuverläss. Tausch- 
partner. Nur 3”-Disk. Bitte 
um Zusendung von Listen. 
A. Wollenhaupt, Im Teich 
55, 6085 Nauheim, Tel. 
06152/69556 
VERKAUFE: CPC 464 
grün, DDI-1, DMP 2000, 
1, RS232, Dataphon, 
Kabel, 16 Disk., L-Pen, 
% y, div. Softw.. ., C-Hefte, 
ücher u. v. m. Alles zus. 
nur 1.600,—. Tel. 0208/ 
20730 ab 17 Uhr 
Achtung, CPC-User! Tausche 
ca. 120 K. Listing-Softw. 
auf Tape gg. Soft- bzw. 
Databoxes. D. Kramer 
Eichenstr. 17, 3549 Volk- 
marsen 
Suche Softw. f. CPC 6128. 
Angebote bitte an Timo 
Glaser, Florastr. 34, 5650 
Solingen 1 
1m ke orc Ill Ich 
verk. folgende -Orig.- 
Disk.: Locksmith, Laser- 
Basic, Exp. Fist, Fight. 
Warrior, Meltdown (6128 
je 25 DM! Tel. 08851/5528 
Public Domain f. Schneider 
CPC. Bisher 5 Disk. Liste 
. 1,50 DM. Computer 
lub Rinteln, Karsten Meier, 
Langenfelderstr. 24 a, 3262 
Auetal, Tel. 05752/601 
FUNDGRUBE FÜR BAST- 
LER! Speicher- u. Logik- 
Chips u. andere Bauelemente 
40 DM. Regelbares Doppel- 
Netzteil f. die Werkstatt 
aur 30 DM. Bei Gesamtab- 
nahme nur 50 DM. G. Köne- 
ke, Westendstr. 26, 6072 
Dreieich 
CPC 464, farb., DDI-1, 3 
Data-Becker-Bü., Hardw., 
inkl. 30 Disk. u. 6 Kass. 
zu verk. VB 1.200 DM. 
Carsten Rebber, Breitestr. 
1, 5600 Wuppertal 21, 0202/ 
464006 


Zu verk. NLQ 401 m. Trak- 
tor u. Kabel f. 464. Ange- 
bote an Tel. 08262/462 
Tausch! Suche Spiele od. 
Anwendersoftw., möglichst 
f. CPC 6128. Weitere Aus- 
kunft unter 08638/1852/ 
8264, NOrKeehne, R. 
Hanuschek 


Verkaufe Software, Spiele u. 
Utilities auf 3°°—Disk. u. 
Kass. f. Schneider CPC. Nur 
Originale. G. Radons, Kolben- 
zeil 18, 69 Heidelberg 
** SUPER SOFTWARE BEI 
Chris Holhut, Cranachstr. 2, 
8659 UNtersteinach. Sofort 
Gratisliste der spottbilligen 
Orig.-Spiele anfordern!!! 
Achtung! Suche Tauschpart- 
ner im Raum Bayreuth/ 
Kulmbach 
Suche Zweitfloppy 5 1/4“ u. 
Speichererw. f. CPC 464. 
Tausche auch Software (Spie- 
le u. Anwendung) auf 3“- 
Disk. Tel. 06121/47127 ab 
16.30 Uhr 
**SUPERANGEBOT** 
Eine Disk. voller Spiele od. 
Anwend. nur 10,— DM. Zu- 
sammenstellung der Spiele 
bzw. Anwend. nach Eurer 
Wahl. Fordert Listen an bei: 
Lars-P. Kuhr, Kaiser-Hein- 
rich-Str. 7, 8354 Metten 1 
ACHTUNG HANDWERKER]! 
Super—Handwerkerpaket 
zum unglaublichen Preis. Für 
IBM-PC u. Kompatible, 
Infos gg. Freiumschlag, Georg 
Huonker, Erlenbachhof, 
7463 Rosenfeld-Leidringen 
Verk. Orig.—Prog.! 3‘ Disk.! 
Mission Elevator u. Copy Ma- 
ster, St. 30,—; zus. 50,—. 
Suche Kontakt zu zuverl. 
Tauschpartner, only Disk. 
Call 05828/414, melden bei 
Dieter Schenk, Almstorf 10, 
3119 Himbergen 3 
Universelles Dateiverw.—Prog 
£. CPCs (22K Datenspeicher). 
C/D 25/35,— DM. Info: C. 
Günther, Luitpoldstr. 9, 
8034 Germering 
Zweitfloppy f. CPC 200,-; 
orig. Star Datei 40,— DM. 
Tel. 07129/2376 


DISKETTEN m, Gar. 

3° Markendisk, DM 6,50 2CF 
Allg. Austro-Agent.Ringstr.10 
D-8057 Eching, Tel.: 08133/ 
6116 
SSSEEBHBEERUESBERREBBERERE 
Wollt Ihr tauschen? Dann 
schickt Eure bespielten Kass. 
od. Disk. an: Tonio Dahmen, 
Vellwigstr. 33, 4690 Herne 1. 
Ihr kriegt sie 100% m. guten 
Spielen u. Anwender—Prog. 
zurück 

Suche Statistikprogramme! 
Liste an: Andreas Ludwig, 
Wilhelmstr. 19, 6501 Buden- 
heim bei Mainz 


———— 


Konamis Coin—Up-Hits 
15,-; Yie Ar Kung Fu 10,-; 
Space Harrier 15,—; Elite Hit 
Pak 15,—: Werner 15,—; 
Codename Mat 10,—; Nexor 
15,—; Crafton & Xunk 15,—; 
zus. nur 100,—. Alles Orig. — 
CPC 464. A. Weiß, Hermann- 
Hanker-Str. 17, 3400 Göttin- 


CPC 6128, GT65 Datarec., 
Verl.-Kabel, Rec.-Kabel, 
Schneider Aktiv-, Schneider 
CPC u. Intern.-Hefte, 1 Joy- 
stick Quickshot, Spiele K), 
Anw. (D) u. Leer—Disk. (8) 
sind zu verk. gg. Gebot, aber 
nicht unter 850,— DM. Post- 
karte an A.Z., Düda, 6750 
Kaiserslautern, Barbarossa- 
ring 32 genügt. 


Jahr alt, m. Grünmon., 2 Joy- 
sticks u. Software (Bomb 
Jack, Winter Games, 1942, 
They sold a Million I u. II, 
V8 usw. f. 650,— DM. Bitte 
melden bei: Tel. 05606/ 
3548, Marco verlangen. 


CPC-Schneider Flugtraining 
CPC 464, 664, 6128. Umfas- 
sende Bewertung der Flüge. 
A) Hubschrauber-Simulator in 
Aktian. 9 Cockpit-Anzeigen. 
3 Flugprogr. zur Wahl 29 DM 
B) Space Shuttle-Landung 
Echtzeitsimulation, nach 
NASA-Unterlagen. 29 DM 
C) Boeing-727 Simulator. 
Programm ist zur Anfänger- + 
Instrumenten-Flugschulung 
geeignet. Mit Anleitg. 34 DM 
Ab 2 Progr. jedes minus 5 DM 
Disk plus 7 DM. Info gegen 
Rückporto. Fluging. Jahnke 
Am Berge 1, 3344 Flöthe 1 
Tel. 05341/91618 
EEE EEE 
Suche f. 6128 Bausoftware: 
Kostenkontrolle, Ausschrei- 
bung, Abrechnung, Heizung, 
Wärme, Schall. Ausführl. In- 
fos an: Wolfgang Sitte, Hove- 
str. 24, 4416 Everswinkel 
Suche f. meinen 464 eine 
gebr., billige u. funktionsf. 
3“-Floppy. Info gg. Rückge- 
bühr bei Hans Ganter, Vor- 
holz 86, 8999 Maierhöfen 
Verk. Data—Becker—Bücher: 
Masch.-Sprache-Buch CPC 
464 CPC 464 Tips u. 

Tricks, Adventures CPC 464, 
jeweils 25,— DM. Tel. 07351/ 
71754 

*** Achtung, Top-Games*** 
zu günstigen Preisen. Liste gg. 
Rückumschlag v. Bodo Staron 
Weidachstr. 8, 8046 Garching 


BÖRSE 


Suche Pagemaker f. CPC 
6128 u. andere Softw. Biete 
Commodore 16 m. Zubeh,, 
Zeitschr., Spielen, 2 Joy—a- 
dapter. Kaufe mögl. billig al- 
les £f. CPC 6128. Info: Tel. 
0631/40656 od. Monika 
Duda, Barbarossaring 32, 
6750 Kaiserslautern (m. 80— 
Pf.—Briefm.) 
** SUPER-TOP-ANGEBOT 
Verk. Spitzensoftware f. 10,— 
DM pro Disk.: 100% Rück- 
antwort!! Schreib an Ralf 
Weinzierl, Braungarten 1, 
8354 Metten 
++SUPERANGEBOT++ 
eine Disk. bespielt m. Euren 
Spiele- u. Anwendungswün- 
schen f. nur 10,— DM, For- 
dert Listen an bei: Lars-Pe- 
ter Kuhr, Kaiser-Heinrich- 
Str. 7,8354 Metten 1. 100% 
Antwort 
Bin Anfängerin u. suche zu- 
verl. Kontakt zu Tauschpart- 
ner (innen)n f. CPC 464 Tape 
u. Disk. Hildegard Schlicker, 
Weilersgrund 58, 5024 Pul- 
heim 
Verkaufe Seikosha GP-500 
CPC, wenig benutzt, m. Orig.- 
Verp.! Preis: 230/200,—DM 
m./ohne Kabel, incl. 200 
Blatt Papier u. Software auf 
3° od. Kass. Preis f. Abholer, 
ansonsten plus Porto. Tel. 
04402/6644 
Suche DDI, Lichtgriffel u. 
Speechsynthesizer. Schickt 
Eure Listen an: Markus Hof- 
mann, Waldstr. 5, 8484 
Grafenwöhr 1 
Suche Anschluß an CPC 6128 
Clubmitglieder £. Informati- 
ons- u. Prog.-Austausch. Zu- 
schriften bitte an: Albert 
Polke, Krebsbachste. 16, 
8941 Ungerhausen 
Disk—Controller v. DDI £. 
CPC 464, zum Anschl. eines 
Disk-Laufwerks. Mit CPIM 
Disk 50,— DM. Tel. 06021/ 
52431 
Hallo, Freaks! Mache euch 
eine Sicherheitskopie v. Disk 
3‘ (Rücksendung 1 Tag). 
Orig.—Disk. u. Leer—Disk. u. 
1.—DM an Josef Berger, Sand- 
rartstr. 55, 8500 Nürnberg 90 
*%**Top Angebot*** 
CPC 464, DDI—1, GT 64 
inkl. div. Disk., Diskettenbox, 
10 Zeitschr., 1 Joystick, div. 
Softw. £. 1.000,— DM zu 
verk. R. Luhmann, Grüff- 
kamp 16, 2300 Kiel 17, Tel. 
0431397441 


Erstelle Ihnen Sicherheitsko- 
pien v. allen geschützten Pro- 
grammen f. nur 8,— DM. In- 
fo: Kai Schwettmann, Steu- 
benstr. 6, 4990 Lübbecke 1, 
Tel. 05741/1686 

Verk. Red Arrows (Flugsimu- 
ih orig.—verp., Preis 20,— 
DM (Ladenpreis 45,— DM). 
Jörg Adler, Lindenweg 13, 
8263 Burghausen 

Verk. Orig.—Software f. CPC/ 
Disk.: Profi Painter 45,— DM; 
Aliens, Starglider, Platinen- 
kit je 35,— DM; Kass. ab 4,— 
DM z.B. Impossible Mission, 
8 St. insgesamt: u.U. auch 
Tausch. Suche preiswerten 
Drucker. Tel. 02923/1911 

3 Spiele auf 1 Kass. f. 10,— 
DM f. CPC 464: 1. Saxon; 2, 
F—19; 3. Phantom. Weg. 
Systemänderung zu verk. Tel. 
06383/7661 (nur 14—15 
Uhr) außer Donnerstag bei 
Karsten Emrich. Keine Raub- 
kopien. 

Public Domain f. Schneider 
CPC. Bisher 5 Disk. Liste gg. 
1,50 DM, Computer—Club 
Rinteln, Karsten Meier, Lan- 
genfelderstr. 24a, 3262 
Auetal, Tel. 05752/601 


Verk. orig. Microland—Kass.— 
Software: Flugsim,, Die Zeit- 
maschine (Adv.), Vokabel- 
lern—Programm je Kass. 15,— 
DM u. Porto. CPC Int. Datab. 
9 u. 11/85 u. Highlights 1: je 
Kass. 8,— DM plus Porto. Tel. 
04402/6644 

Verk. f. CPC 464 auf Kass.: 
Werner, Infiltrator, Batman, 
Super Robin Hood, Thrust u. 
viele andere Spiele je 20,— 
DM! Tausche Soft- gg. 
Hardware. Suche: DD1, 
Lichtgriffel u. Speechsynth. 
Ruf mal an!! Mo—Frei 17— 
20 Uhr, 09641/1742 

Verk. wg. Systemwechsel: 
CPC 6128, Grünmonitor (hal- 
bes Jahr alt), Programme wie 
z.B.: Star Writer, Mica, Pla- 
tinenprog., Kopierprog., 
Wordstar, Multiplan, T.—Pas- 
cal u. Spiele f. 800,— DM 

Tel .. 02043/71528 

Suche Spiele f. CPC 464. 
Schickt Eure Listen an Martin 
Kupetz, Heerstr. 23, 4047 
Dormagen 11 


Hallo, CPC-Freak!! 

Ich verk. 3 Orig.-Spiele Disk. 
f. je 25,—DM: Werner (als 
Spiel), Space Shuttle u. Hi 
jack. Tel 06171/79324, C. 
Lüders 


TEST 


MAGISCHE PINSEL 


Nach dem Profi Painter, einem der ersten Malprogramme für den CPC, 
war es lange Zeit recht still bei dieser Anwendersparte. Erst vor kurzem 
überraschte uns Rainbird mit dem OCP Art Studio, welches aber nur 
mit einer zweiten Speicherbank zusammenarbeitete. Nun erschien Magic 
Brush mit dem Versprechen, eine beinahe gleich große Leistung auf dem 
CPC 464 in der Grundausstattung zu bieten. Darüber hinaus selbst- 
verständlich auch auf dem 6128. 


Magic Brush ist ein Programmpaket, 


bestehend aus dem eigentlichen 
Grafikprogramm, einigen Demos, 
die zeigen, wie es angewendet wer- 
den kann, und einer Basic-Erweite- 
rung mit dem Namen Magic Basic. 
Zu Beginn sollte sich jeder einmal 
die Demo-Files anschauen, die teil- 


weise sehr effektvoll aufgebaut sind. 


Zudem sind sie nicht kopierge- 
schützt, so daß der Benutzer beim 
Auflisten einen Einblick in die Ar- 
beit von Magic Basic erhält. 


MAL WAS NEUES — 
PULL-UP-MENÜS 


Das Zeichenprogramm begrüßt den 


Anwender mit einem grauen leeren 
Feld, an dessen unteren Rand sich 
eine Menüleiste befindet, die mit 
Joystick, Maus oder Cursortasten 
angesteuert werden kann. Bewegt 
man den Pfeil auf ein entsprechen- 
des Feld, wird die Option invertiert 
dargestellt und ein Untermenü wird 
nach oben ausgerollt, ganz wie von 
GEM her bekannt, nur eben anders 
herum; Pull-Up statt Pull-Down. 
Zudem läßt sich der Befehlsumfang 
erweitern, indem man auf einen 
zweiten Satz umschaltet. Auf dieser 
Menüleiste befindet sich auch die 
Koordinationsanzeige des Cursors. 
Damit werden die Positionen des 
Grafikcursors angezeigt, was zwar 
merklich das Tempo verringert, 
doch zum exakten Arbeiten not- 
wendig ist. 

Magic Brush unterstützt alle drei 
Grafikmodi des CPC. Im Modus 
Null wird allerdings aufgrund des 
Platzbedarfes nicht die komplette 
Menüleiste dargestellt. Hier muß 
man durch das ‚‚Anklicken‘ einer 
Untermenüfunktion zwischen den 
einzelnen Optionen hin- und her- 
springen. 


ZAHLREICHE LEISTUNGS- 
STARKE OPTIONEN 


Neben Standardfunktionen, die in 


fast allen anderen Programmen 
ebenfalls zu finden sind, bietet 
Magic Brush noch eine Reihe Fea- 


Wie schon beim Zeichensatz gibt es 
auch bei den Füllmustern, den 
„Pattern“, eine Filesammlung, die 
mit einem Editor um eigene Ideen 
erweitert werden kann. Aus den 
Zeichnungen können Objekte her- 
ausgeschnitten und beliebig auf 


Mit Magic Brush lassen sich detaillierte Grafiken erstellen 


ture an, die aus der Masse hervor- 
ragen. So können zum Beispiel Bild- 
schirmausschnitte verschieden groß 
definiert und separat auf Kassette 
oder Diskette gespeichert werden. 
Der gesamte Grafik-Zeichensatz des 
CPC ist verfügbar, eine kleine Bib- 
liothek hierzu befindet sich auf der 
Programmdiskette. Wem dies nicht 
reicht, der kann mit einem Editor 
ein individuelles File erstellen. 

Mit der Angabe der x- und y-Posi- 
tionen läßt sich einiges machen. So 
kann um jede Achse gespiegelt wer- 
den, auf Wunsch auch um beide. 
Auch unproportionale Vergröfserun- 
gen, die in eine der beiden Rich- 
tung verzerren, sind möglich. Neben 
den recht eindrucksvollen Effekten 
hat dies auch eine praktische Nutz- 
anwendung beim Zeichnen der 
Kreise. Wie man weiß, werden die- 
se durch eine Hardcopy verzerrt 
dargestellt. Und dem läßt sich mit 
der einfachen Routine entgegen- 
wirken. 
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dem Bildschirm kopiert oder ver- 
schoben werden. Die Auswahl an 
Stiften (Pens) und Pinseln (Brushes) 
ist sehr groß, das gilt sowohl für die 
Linienformen und -farben, als auch 
für die Stärke. Das Tempo des Cur- 
sors ist (in gewissen Grenzen) einzu- 
stellen, man sollte und kann aber 
nicht allzuviel davon erwarten. Ei- 
nerseits muß ja die Berechnung der 
Koordinaten mitlaufen und ande- 
rerseits gilt es unter Umständen, 

ein Objekt mit sich zu ziehen. 

Sehr ausgearbeitet ist die Funktion 
„Spraydose“. Die Punktdichte läßt 
sich einstellen, so daß mit dieser 
Option sogar das Füllen ganzer Flä- 
chen oder Objekte möglich wird. 
Auch mit einem Füllmuster kann 
„gesprüht‘‘ werden und mehrere 
Farben lassen sich nacheinander auf- 
tragen. Abstrakte und effektvolle 
Grafiken werden mit der Multispray- 
Funktion erledigt, wobei der CPC 
die Farben mit dem Zufallsgenerator » 
wechselt. 


Einen ernsthaften Schock versetzt 

das Programm jedem Anwender, 
wenn esan den Ausdruck geht. Für 
die auf Diskette abgespeicherten 
Bilder fehlt jedwede Druckoption. 
Nach einer Bestätigung des ‚„Un- 
denkbaren“ durch die Firma Waldeck, 


GRÖSSTER MANGEL — 
HARDCOPY FEHLT 


folgte die Rechtfertigung: ‚‚Hard- 
copys wurden zu Hauf in diversen 
Computermagazinen veröffentlicht. 
Jeder Druckerbesitzer wird eine sol- 
che Routine besitzen. Mit ihnen ist 
es ganz einfach, eine Hardcopy vom 
Bildschirm zu erstellen. Unsere Pro- 
grammierer wollten den dadurch 
gewonnenen Speicherplatz für ande- 
re Funktionen nutzen.“ 


BASIC-UTILITY ALS 
GEGENLEISTUNG? 


Dies ist ja alles schön und gut, aber 
eine fehlende Druckroutine in einem 
ansonsten ausgereiften Programm 
stellt einen echten Schwachpunkt 
dar. Von Benutzerfreundlichkeit 
kann da nicht mehr die Rede sein. 
Vielleicht meinen die Programmie- 
rer mit den anderen Funktionen 
das auf der Diskette (bzw. Kassette) 
befindliche Magic Basic. Tatsächlich 
wird es den enttäuschten User we- 
nigstens zum Teil wieder versöhnen, 
ob alles wieder wettgemacht wird, 
hängt davon ab, welche Druckrouti- 
nen der Käufer wirklich schon be- 
sitzt. Die Anwendung von Magic 
Basic ist ein Kinderspiel. Das Uti- 
lity verfügt nur über 8 Befehle, die, 
wenn man sie richtig einsetzt, Un- 
glaubliches bewirken können. Mit 
etwas Übung können sogar Grafi- 
ken animiert werden. 


DIE DOKUMENTATION 


Gute Augen muß man schon haben, 
um den 8 stark verkleinerten Sei- 
ten des Manuals etwas entnehmen 
zu können. Für ausführliche Erläu- 
terungen oder gar Beispielpro- 
gramme war dabei natürlich kein 
Platz mehr. Die Informationen sind 
äußerst knapp, dabei aber auch prä- 
zise. Es läßt sich mit dem Mager- 
Handbuch schon etwas anfangen 
und der Rest muß eben erarbeitet 
werden. Das kann bei der Benutzer- 
führung schon wieder Spaß machen. 
Wäre da nicht die fehlende Druck- 
option, wir würden Magic Brush aus 
ganzem Herzen mit einem voran- 
gestellten ‚sehr‘ empfehlen, aber so 
bleibt es immerhin auch noch 
empfehlenswert. 

(GS/C. Borgmeier) 


TEST 


MS-DOS-Rechner sollen — nicht zuletzt nach dem Willen der 
Firma Schneider — endlich auch den Heimbereich erobern. Anders als im 
geschäftlichen Anwendungsbereich verlangt hierfür der Kunde auch mal 
ein Spiel. Zwar kann man mit IBM-kompatiblen Rechnern bereits auf 
eine große Auswahl zurückgreifen, doch bei der Software, die speziell für 
den Schneider PC auf den Markt gebrachte wurde, ist die leichte Muse 
noch nicht ausreichend vertreten. Wir waren deshalb gespannt, was 
Pitstop Il, eine bereits von Homecomputern her bekannte Rennsimulation, 
auf der MS-DOS-Maschine zu bieten hatte. 


Das Bildschirmfoto auf der Hülle 
läßßt den Käufer zumindest nicht 
über die Qualität der Grafik im Un- 
klaren. Zwar bemühte man sich bei 
den Farben um Echtheit — Gras ist 
grün und der Himmel blau —, es 
fehlt jedoch jede Schattierung oder 
Abstufung, so daß von Realismus 
nicht die Rede sein kann. Zudem 
ist die Grafik noch recht grob. 


KEINE JOYSTICK-BENUTZUNG 
TROTZ HANDBUCH-HINWEIS 


Nach dem Start unter MS-DOS mel- 
det sich das Spiel mit einer Titelgra- 
fik, die auf Tastendruck verschwin- 
det. Kurz danach werden erste Wi- 
dersprüche zum Klappentext der 
Hülle, bzw. zur Bedienungsanleitung 
erkenntlich. Dort wird nämlich be- 
hauptet, die Autos seien mit dem 
Joystick (oder der Tastatur) zu 
steuern. Aber es taucht kein Menü- 
punkt zu dieser Frage auf und tat- 
sächlich, während des Spieles bleibt 
nur die Tastatur zum Lenken. Die- 
ser Verzicht der Programmierer auf 
den Joystick und dagegen der klare 
Hinweis im Handbuch ließen uns 
zuerst an einen Hardwarefehler glau- 
ben. Aber auch bei einem zweiten 
PC funktionierte die Geschichte 
nicht, während alle anderen Joystick- 
Spiele einwandfrei abliefen. Es 
blieb dabei, Wagen Nummer | wird 
mit den Cursortasten gesteuert, Wa- 
gen Nummer zwei reagiert auf die 
Eingaben der Tasten W, A,D und 


RAM DESIGN BY: 
IBM VERSION BY: 


X. 

Korrekt ist allerdings das Menü für 
die drei Schwierigkeitsgrade Rookie, 
Semi Profi und Profi. „Rookie“ 
darf man dabei mit einem Anfänger 
gleichsetzen und muß den Rennfah- 
rerbegriff nicht wörtlich mit Gau- 
ner übersetzen. Der Unterschied 
zeigt sich nachher in der zulässigen 
Geschwindigkeit während des Ren- 
nens. Schließlich stehen noch drei 
verschiedene Rennstrecken zur Ver- 
fügung, die man wahlweise auch 

alle nacheinander abfahren kann. drei, sechs oder neun gewählt wer- 
Die Rundenzahl darf dabei zwischen den. 
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Sy NERGISTIC 


Das eigentliche Rennen ist eine ein- 
fache Sache und gleichzeitig eine 
große Enttäuschung. Selbst in den 
schärfsten Kurven sollte man den 
Finger auf der Vorwärts-Taste las- 
sen, der Wagen bremst von alleine 
ab, wahrscheinlich weil er an den 
Leitblanken entlangschrammt. Hin 
und wieder führt dieser Fahrstil na- 
türlich zu einer Explosion, die aber 
nicht voraussehbar und damit zu 
verhindern ist. Selbst wer sich um 
vernünftige Fahrweise bemüht, 
bleibt von derartigem Unglück nicht 
immer verschont. 


SÖOFTINARE 
LAUREN GUIMONT 


Oben: schon ım Titelbild keine überzeu- 
gende Grafik. Unten: Fahrer 1 zum 
Auftanken an der Box. 
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Während des Rennens ist der Bild- 
schirm zweigeteilt. Die untere Hälf- 
te steht dabei dem zweiten Fahrer 
zur Verfügung, der ersatzweise 

auch vom Computer simuliert 

wird. Die Zeitanzvige, das Tempo 
(in Meilen) und der Benzinvorrat 
werden für jeden Wagen getrennt 
angezeigt. Auf der Rennstrecke wer- 
den die Kurven zuvor durch Schil- 
der angezeigt, ansonsten bleibt die 
Umgebung recht spärlich. Einige 
wolkenverhangene Berge am Hori- 
zont können die Grafik auch nicht 
realistisch machen. 

Am wichtigsten dürfte die eingeblen- 
dete Rennstrecke an der linken Sei- 
te des Bildschirmes sein. Hier ist 

die Position des Rennwagens und 
der Mechanikerbox eingezeichnet. 


BOXENSTOP IST MÖGLICH 


Die Serie der Pitstop-Autorennen, 
die es mittlerweile für fast alle Com- 
putertypen gibt, zeichnet sich auch 
durch etwas Strategie aus. Abgefah- 
rene Reifen oder ein leerer Benzin- 
tank zwingen zu einem Boxenstop. 
Abgefahrene Reifen erscheinen bei 
der PC-Version in Rot, während 
neue Reifen noch blau sind. Bei 
einem Schwarzweiß-Bildschirm ist 
der kleine Unterschied nur schwer 
auszumachen, und man sollte lieber 
einen Stop zuviel erledigen, bevor 
das Rennen durch die Explosion be- 
endet ist. 

Denn auch bei der Schneider-Ver- 
sion ist der Rennservice möglich. 
Bremst man an der Station unter 
eine bestimmte Geschwindigkeit 
und lenkt den Wagen ganz nach 
rechts, dann wechselt das Bild und 
vier Mechaniker stehen bereit, um 
den Wagen wieder fit zu machen. 
Auch hier sollte ein Fadenkreuz mit 
dem Joystick auf den gewünschten 
Mann gelenkt werden, und auch 
hier funktioniert das ganze nur mit 
den Cursortasten. Man wählt den 
Mechaniker aus, z.B. den Tankwart 
und führt ihn zu dem Wagen. Der 
Spaß geht sogar soweit, daf der 
Tank überlaufen kann, wobei aller- 
dings nichts passiert. Hat man auf 
ähnliche Weise im Bedarfsfall noch 
die Reifen gewechselt, kann es wei- 
tergehen. Dazu ist der Starter zu ak- 
tivieren, der kurz die Flagge senkt 
und schon wechselt das Bild und 
man ist wieder auf der Rennstrecke. 
Bei allem läuft natürlich die Zeit 
mit und man sollte sich beeilen, 
bevor der Gegner seine Runden ganz 
abgedreht hat. Das Verfahren ist 
allerdings gerecht. Keiner der Wa- 
gen muß öfter zu den Mechanikern 
als der andere, allerdings verläuft 
der Aufenthalt bei einem rechner- 
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gesteuerten Renner wesentlich 
schneller, als man ihn per Hand er- 
ledigen kann. 


EINFACHE STEUERUNG UND 
MONOTONER SOUND 


Während des Rennens muß man sich 
nicht anstrengen. Der Bolide, den es 
zu steuern gilt, ist anscheinend mit 
einer Vollautomatik ausgestattet 
und die Gangschaltung erübrigt sich. 
In Kurven passiert ebensowenig. 

Wie bereits erwähnt, bremst der Wa- 
gen auf geheimnisvolle Weise von al- 
leine ab. Dies hat nicht etwa mit dem 
„Rookie“-Modus, dem Anfängerle- 
vel, zu tun, sondern ist bei allen 

drei Schwierigkeitsstufen gleich. 
Zur Freude trägt auch nicht der ein- 
tönige Sound bei. Das Gebrumme in 
den verschiedenen Tonlagen schlä- 
fert schnell ein und man freut sich 
fast schon auf den Krach, den ein 
Unfall bewerkstelligen kann. Ehrli- 
cherweise muß allerdings festgestellt 
werden, daß dies nicht an der Soft- 
ware, sondern an der Hardware 
liegt. IBM-kompatible PCs zeichnen 
sich durch einen ärmlichen Tonge- 
nerator aus. 


FAZIT: GERINGE MOTIVATION 
DURCH ALLERHAND 
UNZULÄNGLICHKEITEN 


Pitstop II ist wohl die am besten vor- 
gebrachte Forderung nach einer bes- 
seren Schneider-Grafikarte. Jeden- 
falls vermag das simple Spielchen 
auch in Farbe nicht zu begeistern. 
Zweiter Schwachpunkt ist die feh- 


Pitstop II - PC 1512 


0 2 2 er. 
Von Epix bei Schneider Data 


lende Joysticksteuerung. Es nutzt 
nichts, daf3 das Handbuch an vielen 
Stellen behauptet, man könne ihn 
zur Steuerung einsetzen. Letztlich 
bedeutet dies nur, daß selbst der 
Autor des Manuals diese Option für 
selbstverständlicher hielt als die 
Programmierer. Da auch die Anfor- 
derungen an den Spieler sehr gering 
sind, wird Pitstop schon bald nach 
dem Kauf in der Schublade ver- 
schwinden. Damit es gar nicht erst 
dazu kommt, gilt unser Urteil: 
nicht empfehlenswert. 

(GS) 
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CHALLENGE OF THE GOBOTS 


Wieder ist ein neues Weltraumballerspiel auf dem deutschen Soft- 
waremarkt erschienen: ‚Challenge of the Gobots’’; die 595. Folge der 
Dauerserie ‚„Retten Sie die Menschheit vor den fürchterlichen Feinden aus 
dem Weltraum”. Anscheinend fallen den Vertreibern der Computersoft- 
ware keine anderen Storys mehr ein, um ihre Software unter die 
Käufer zu bringen. 


Die Story, die diesem Spiel zugrun- 
deliegt, findet der Käufer auf der 
Diskette vor. Und zwar gleich ver- 
teilt auf insgesamt 13 Bildschirm- 
seiten. Auf dem Beipackzettel zu 
diesem Spiel heißt es, man müsse 


wahs bisd Tu?‘ Manche Sätze muß 
man zweimal lesen, bis man meint, 
sie verstanden zu haben. So quält 
man sich Seite für Seite vorwärts 
und meint, nun kenne man die 
Story und weiß, was einem beim 


erst die Story lesen, um das Spiel zu Spielen erwartet, aber weit gefehlt! 
verstehen. Diese Hintergrundgeschich- Das Spiel kann man auch spielen 


te kann aufgerufen werden, wenn 
man nach dem Laden des Spiels die 
Option „Book“ wählt, aber auch 
nach dem Lesen der dreizehn Sei- 
ten sieht man keineswegs klarer, 
worum es überhaupt geht. 

Im Gegenteil, ich finde diese Story 
sinnlos und kann keinerlei Zusam- 
menhang mit dem, was sich beim 
Spielen dann auf dem Bildschirm 
tut, finden. Ob der Programmierer 
nach kByte, die er produziert, 
honoriert wird? Ich hatte beim Le- 
sen der Story im „Book“ den Fin- 
druck, daß es so ist. Denn da steht 
eine umfangreiche und schauer- 
liche Geschichte, die durchaus ei- 
nem Kurzroman ähnelt. Aber wie 


(und vielleicht sogar viel besser!), 
wenn man die Beschreibung nicht 
gelesen hat. 


VERNICHTEN SIE DIE FEINDE, 
ZERSTÄUBEN SIE DIE 
FEINDLICHE STATIONEN 


Denn das Spiel selbst ist dann fast 
das übliche Ballerspiel. Es spielt 
zwar in einer etwas ungewohnten 
Umgebung, denn man findet am 
oberen und unteren Bild'and den 

I rdboden vor, wo es gilt, die Fein- 
de und deren Stationen zu vernich- 
ten und zu pulverisieren. 

Zuerst gilt es, sich zu bewaffnen. Da- 
zu kann man Steine aufsammeln 


gesagt, klarer wird das Spiel dann an- und zwar, indem man seinen Kampf- 


schliefßend auch nicht. Eigentlich 
schade. Eine kurze, knappe, aber 
logische Story hätte ich da für 
besser gefunden. 


ANLEIHDUNG AUV TEUTCH 


Dieses ‚Buch‘ kann man sich auch 
auf Deutsch vorblenden lassen, in- 
dem man nach dem Aufruf „Book“ 
mit dem Joystick einen Pfeil auf die 
linke, obere Ecke lenkt. Dann muß 
man den ‚„‚Feuerknopf“ drücken 
(und gedrückt lassen, wichtig!), den 
Leuchtbalken durch Herunterzie- 
hen auf „Language“ bringen und 
den Pfeil etwas nach rechts ziehen. 
Nun hat man die Auswahl zwischen 
den Sprachen Englisch, Franzö- 


gleiter auf den Erdboden aufsetzen 
läßßt. Wenn Sie dann den Joystick 
nach unten (wenn sich der Gleiter 
unten auf der Erde befindet) oder 
nach oben (wenn der Gleiter oben 
ist) ziehen, nehmen Sie die Fels- 
brocken auf, die Sie dann später auf 
Ihre Feinde abwerfen können. Und 
Feinde sind alle diejenigen, die 
Ihnen mißfallen. 


RAKETENBEWAFFNUNG, 
LEICHT GEMACHT! 


Oder Sie nehmen Raketen (nach der 
Beschreibung sind das Roller-Kone) 
auf, wenn Sie Ihren Gleiter auf die 
roten Gebilde lenken. Die Raketen 
brauchen Sie, um die Stationen der 
menschenverschlingenden Monster 


sisch und Deutsch. Steht der Leucht- zu zerstören. Die Stationen, die Sie 


balken auf „Deutsch“, den Feuer- 
knopf (erst jetzt!) loslassen. Etwas 
kompliziert, aber es geht. 

So, dann geht es los mit den drei- 
zehn Seiten des „Books“. Es ist 
zwar gut, daß man es auf Deutsch 
lesen kann, aber was für ein 
Deutsch! Da wimmelt es nur so vor 
grammatikalischen Fehlern. So 
nach dem Stil: „Ich seih Robod, 


vernichten müssen, um in den näch- 
sten Level zu gelangen, sind die wei- 
ßen Halbkugeln. Haben Sie alle in 
einem Level vernichtet, so sind Sie 
kein Raumkadett mehr, sondern wer- 
den befördert und gelangen in den 
nächsten Level. Und da geht es 

dann weiter. Durchaus keine origi- 
nelle Geschichte, wie ich finde, aber 
ganz nett gemacht. 
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TASTENDEFINITION ODER 
JOYSTICKSTEUERUNG 


Das Spiel selbst wird mit dem Joy- 
stick gespielt oder mit Tasten, die 
man selbst definieren kann. Drückt 
man nach dem Starten des Pro- 
gramms die „fl“-Taste, werden die 
Tasten definiert. Beim Joystick ist 
die Abfrage ja klar, wo oben, unten, 
rechts, links und Feuer sein soll. 
Aber man muß auch noch den 
Bombenknopf definieren. 

Mit der Feuertaste können Sie näm- 
lich nur den Laser aktivieren, mit 
dem Sie fliegende oder sonstige 
Gegner zerstäuben können oder 
zum Abfeuern der Felsbrocken. 
Der Laser funktioniert nur, wenn 
Sie mit Ihrem Raumpgleiter sich in 
der Luft befinden. Wenn Sie am 
Boden sind, werden mit dem Feuer- 
knopf die Felsbrocken abgefeuert. 
Der Bombenknopf dient nur zum 
Auslösen der Raketen. 


SCHWIERIGKEITSGRAD 
SELBST DEFINIEREN 


Drücken Sie im Auswahlmenü je- 
doch die ‚‚f3‘-Taste, so haben Sie die 
Möglichkeit, verschiedene Schwierig- 
keiten einzubauen. So können Sie 
wählen, ob die Gegend, durch die 

Sie fliegen und nach den Stationen 
der Bösen suchen, voller Berge sein 
soll oder nur eine glatte Ebene. 


FANGEN SIE MIT NORMALER 
GRAVITATION AN 


Dann kann man die Gravitation ver- 
ändern, zwischen normaler und 
überhöhter Anziehungskraft. Für 
den Anfang sollten Sie nicht die 
schwierigere überhöhte Erdanzie- 
hung wählen, denn dann ist die Joy- 
sticksteuerung nicht einfach! Also 
lieber leicht anfangen und sich dann 
steigern! 

Außerdem können Sie sich entschei- 
den, ob Sie bei Kollision mit den 


Challenge of the Gobots 
Von Reaktor bei ariolasoft 


Stationen explodieren sollen oder 
nicht. Und was Sie da einstellen, 
dürfte ja wohl klar sein. 

Während des Spiels können Sie je- 
derzeit mit dem berühmten ‚‚Drei- 
Finger-Griff‘“, also gleichzeitiges 
Drücken der Shift-Controll- und 


Sr ine 


ee 


ESC-Taste, das Spiel unterbrechen 
und neu beginnen. 


FAZIT 


Für die Neulinge in diesem Spiel 
noch ein Tip. Wenn Sie nach dem 
Starten „‚f7‘ drücken, so kommen 
Sie in ein Übungslevel, wo Sie kaum 
auf Gegenwehr (sprich Gegner) 
treffen und es vor Raketen, die Sie 
aufnehmen können, nur so wimmelt. 
Wenn Sie sich dann eingespielt ha- 
ben, können Sie normal im Level | 
weitermachen. 
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Ein Weltraumspiel, das zwar recht 
nett ist, aber kaum Besonderheiten 
aufweist. Eine grammatikalisch 
schlechte und inhaltlich irreführen- 
de Rahmengeschichte, die Sie im 
„Book“‘ vorfinden. Nach einiger 
Übung durchaus nicht schwer zu 
spielen. Hervorragende CPC-Grafik. 
Allerdings fällt auf, daß die Größe 
des Bildschirmes nicht ausgenutzt 
wird und die Aktionsfläche, in der 
das Spiel abläuft, klein gehalten ist. 
Kaum Sound, wenn aber was zu 
hören ist, dann ist er nicht schlecht. 


(JE) 


DER AFFE IST 
EIN ESEL? 


Der Arcadeklassiker Donkey Kong, der durch die Atarispielkonsolen 
in die Wohnzimmer kam, wurde für fast alle Rechner umgesetzt. Eine 
Schneiderversion gab es jedoch nicht, weil das Gerät zu dieser Zeit noch 
nicht so populär war. Ocean brachte jedoch vor einiger Zeit eine 
Neuauflage des beliebten Spieles für den Commodore C 64 auf den Markt 
und diesmal konnte auch der CPC davon profitieren. 


Sie schlüpfen in die Rolle des armen 
Zimmermanns Mario, einer legendä- 
ren Spielfigur bei Ocean, die auch in 
anderen Spielen zitiert wird. Mario 
hat eine hübsche blonde Freundin, 
die er über alles liebt. Das Leben 
könnte so wunderbar sein, wenn es 
nicht den sehr mächtigen Herrn 
Donkey Kong gäbe, der scheinbar 
auch ein reges Interesse an der Dame 
zeigt. Wie die Schöpfer des Spieles 
auf den Namen „Donkey Kong“ 
gekommen sind, wird ein Rätsel 
bleiben. Vielleicht bezieht sich 

der Esel (Donkey) auf den Geistes- 
zustand des ausgewachsenen Goril- 
las. Wie dem auch sei, das Untier 
taucht eines Nachts auf, klemmt 
sich Marios Freundin unter den 
Arm und macht sich auf und davon. 
Wie aus den King Kong-Filmen be- 
kannt, flüchten Riesenaffen mit 
Blondinen bevorzugt auf Wolken- 
kratzer. 


SKURRILE VERSION DES 
KING KONG-FILMES 


Bei der Verfolgung des Kidnappers 


riskiert Mario sein Leben, um seine 
Herzallerliebste erretten zu können. 
Eile ist auch noch geboten, denn 
ein Bonus winkt. 

Hat Mario das Gerüst erklommen, 


ist das Spiel noch lange nicht be- 
endet. Das vorher auf dem Bild- 
schirm erschienene Herzchen, das 
zwischen Mario und der Maid 

hin- und herpendelt, zerplatzt 

wie eine Seifenblase. Hämisch klet- 
tert Donkey Kong mit seiner Erobe- 
rung eine Stufe höher, und der ge- 
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fahrvolle Aufstieg geht weiter. 

Es gilt, neue Schikanen zu überwin- 
den, von denen Fließbänder mit 
Topfkuchen(?!) zu den skurrilsten 
gehören. Sie können sich denken, 
wie es weitergeht, es gibt insgesamt 
vier Levels, bevor Mario seine Lieb- 
ste in die Arme schließen kann. 


SCHNEIDERVERSION IST EINE 
DER BESTEN UMSETZUNGEN 


Die Grafik, ist verglichen mit der 
gleichnamigen Automatenversion 
und den zahlreichen anderen Home- 
computerkonvertierungen, sehr gut. 
Mario, aber auch Donkey Kong, 
sind herrlich animiert. Man sieht 
viel auf dem Bildschirm und trotz- 
dem wird das Ganze nicht unüber- 
sichtlich. Die Sprites bewegen sich 
flimmer- und ruckfrei. 

Für den Sound hat man es bei kur- 
zen Musiksequenzen belassen, die 
aber hervorragend klingen. So zum 
Beispiel beim Übergang in ein neues 
Level oder beim Verlust eines Le- 
bens. Die Geräusche während des 
Spielablaufs sind recht ansprechend 
und vermitteln Arcade-Atmosphäre. 
Die Motivation ist zumindest am 
Anfang recht hoch. Zwar ist das 
Spiel schwer zu Ende zu bringen, 
hat man es jedoch einmal geschafft, 


dann wird man weniger Freude an 
den immer wiederkehrenden Ge- 
rüsten haben. 

Donkey Kong wirft mit Feuerbäl- 
len, Stahlbalken und explodierenden 
Fässern, denen Mario ausweichen 
muß. 

Es liegt an Ihnen, ihn auf seinem 
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Weg mit dem Joystick oder der 
Tastatur zu lenken. Während Mario 
mutig den Wolkenkratzer empor- 
klettert, wird er von Donkey Kong 
verspottet und gehänselt. Dieser 
stolziert auf dem höchsten Balken 
des Gerüstes auf und ab. Er trom- 
melt wie ein Besessener auf seinen 
Brustkorb und ist voller Vorfreude 
auf die bevorstehenden Flitter- 
wochen. 

Vor Beginn des Sj)ieles dürfen Sie 
entscheiden, ob Sie alleine oder mit 
einem Partner spielen wollen. Be- 
dauerlicherweise ist der Zwei-Spie- 
ler-Modus eine Notlösung, bei dem 
man sich den Joystick brav teilen 
muß. Macht ein Spieler einen Feh- 
ler, so wird der andere zur Pflicht 
gerufen und verteidigt das nächste 
Level. Eigentlich läßt sich dieser 
Zweier-Modus mit jedem Spiel rea- 
lisieren, ohne daf3 man dazu erst 
ein Menü aufbauen muß. 

Wer keinen Joystick hat, braucht 
auf Donkey Kong nicht zu verzich- 
ten. Das Spiel ist auch mit der 
Tastatur spielbar, wobei leider nicht 
auf die Cursortasten Rücksicht ge- 
nommen wurde (Spectrum läßt 
grüßen). Statt dessen darf man sich 
mit *“O“, “A“ und ähnlichen Tasten- 
suchspielen die Finger verrenken. 
Allerdings dürften ja die meisten ei- 
nen Joystick besitzen. 

Hat man alle Parameter eingestellt, 
sieht man auch schon Donkey Kong 
das Gerüst hochklettern, auf daß 
sich die Balken verbiegen. Er stellt 
das hübsche Mädchen ab und das 
Spiel kann beginnen. 

Ganz oben auf dem Bildschirm be- 
finden sich diverse Anzeigen und 
Zählwerke, auf denen der aktuelle 
Punktestand und die Höchstleistung 
des heutigen Tages zu sehen sind. 


Von dcean bei Waldeck 


Die Schneiderversion gilt unter den 
Neuauflagen als die beste. Da keine 
Metzeleien stattfinden, sondern der 
Spaß aus einer Spielidee a la Pac 
Man besteht, kann Donkey Kong 
allen CPC-Besitzern, auch den jün- 
geren, sehr empfohlen sehr empfoh- 
len werden. 
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VERDIENEN SIE GELD 
MIT IHREM COMPUTER! 


WIR ZAHLEN BIS ZU 1000DM! 


Haben Sie einen CPC 464 oder 664 ? Einen 6128 
Können $ie programmieren? In Basic oder 
Maschinensprache? Dann bietet SCHNEIDER AKTIV 
Ihnen die Möglichkeit, mit diesem Hobby Geld zu verdie- 
nen! 


Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusammen 
mit einer Kurzbeschreibung, aus der auch die verwende- 
te Hardware — eventuelle Erweiterungen — benutzte Pe- 
ripherie — hervorgehen muß, ein. 


Benötigt werden: eine Datenkassette oder Diskette! 
Wenn die Redaktion sich überzeugt hat, daß dieses Pro- 
gramm läuft und sich zum Abdruck eignet, zahlen wir 
Ihnen pro Programm je nach Umfang bis zu DM 300,—! 


Name des Einsenders: 


Für das ‚Listing des Monats‘‘ sogar DM 1.000,'—. 
Sie erhalten Ihre Kassette /Diskette selbstverständlich 

zurück, wenn Sie einen ausreichend frankierten 

Rückumschlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen Sie mit Ihrer Unterschrift ga- 
rantieren, daß Sie der alleine Inhaber der Urheber-Rechte 
sind! Benutzen Sie bitte anhängendes Formular! (Wir 
weisen darauf hin, daß auch die Reaktion englische 
Fachzeitschriften liest und ‚‚umgestaltete‘‘ Programme 
ziemlich schnell erkennt). 


Um Ihnen die Arbeit zu erleichtern, finden Sie hier ein 
Formular. Sie können es ausschneiden oder fotokopie- 
ren. 


Straße /Hausnr. /Tel.: 
PLZ/Ort: 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: 


Beigefügt [Listings I] Kassette [_] Diskette 


Ich versichere, der alleinige Urheber des Programms zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es in 
den Kassetten-Service aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung. Das Copyright 


geht an den Verlag über. 


Rechtsverbindliche Unterschrift 


SCHNEIDER AKTIV 
PROGRAMM-REDAKTION 
POSTFACH 1161 
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